[gr8styl]

Καλώς όρισες φίλε Ηλία στην παρέα

Το πιο απλό είναι να κάνεις επικόλληση του παρακάτω κώδικα στον κώδικα του Φύλλο1 (δεξί κλικ στο όνομα του φύλλου)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    Range("a" & Cells(Rows.Count, "a").End(xlUp).Row + 1) = Range("$A$2")
End If
End Sub

Σαν δεύτερη εναλλακτική χωρίς VBA υπάρχει και η προσέγγιση της Φόρμας Δεδομένων (Menu Data Form)

Aν δεν σε καλύπτουν αυτά πρέπει να μας δώσεις περισσότερες πληροφορίες για την δομή των δεδομένων σου για να δούμε αν αξίζει να το παλέψουμε περισσότερο.

Γενικά να ξέρεις ότι για λύσεις με χρήση τύπων και όχι VBA τα κελιά που καταχωρούμε τα δεδομένα (Α2 στο παράδειγμά σου) δεν πρέπει να χάνουν τα περιεχόμενα τους.

Θανάσης.