[gr8styl]

Ξέχασα ότι θέλαμε ταξινόμηση.

Διορθωμένος κώδικας που κάνει ταξινόμηση αλλά και καθαρίζει το κελί καταχώρισης μετά την αντιγραφή στην λίστα

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    Application.EnableEvents = False
    Range("a" & Cells(Rows.Count, "a").End(xlUp).Row + 1) = Target
    Range("a3:a" & Cells(Rows.Count, "a").End(xlUp).Row).Sort _
        Key1:=Range("a3"), Order1:=xlAscending, Header:=xlYes
    Target.ClearContents
    Application.EnableEvents = True
End If
End Sub

Ο κώδικας υποθέτει κελί καταχώρισης το Α2 και Λίστα από το Α3 και κάτω.
Αν θέλουμε κελί καταχώρισης το C3 και Λίστα από το F2 και κάτω αλλάζουμε
το "$A$2" σε "$C$3"
τα 3 "a" σε "f"
το "a3:a" σε "f2:f"
και το "a3" σε "f2"

Ελπίζω να επανόρθωσα