[Spirosgr]

Μπάμπη, καλώς ήλθες στο ms-office.gr

Αν κατάλαβα το ζητούμενο, τότε:

1. Κάνε το βιβλίο .xlsm
2. Βάλε στο φύλλο 2, κελί a1, ένα τίτλο πχ Edit List
3. Αντέγραψε τον πιο κάτω κώδικα, στο φύλλο1, συμβάν Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Lrow As Long
    Lrow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1

    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Columns.Count > 1 Then Exit Sub

    If Target.Column <> 1 Then Exit Sub
    Sheet2.Cells(Lrow, 1).Value = Target.Value
End Sub

Σε κάθε αλλαγή, στη στήλη Α, φύλλο1,
θα καταχωρείται η εγγραφή, στο τελευταίο (κενό) κελί της στήλης Α, του φύλλου2.

Νέα καταχώρηση θα γίνεται, ακόμα κι αν αλλάξει μια τιμή στο φύλλο1