[Spirosgr]

Καλημέρα
Έστω, στο φύλλο 1, το κελί I3, με κάποιο όνομα - αριθμό.
Έστω, στο φύλλο 2, το κελί A1, με μια κεφαλίδα.
Εισάγουμε στο φύλλο 1, ένα κουμπί και το συνδέουμε, με τον κώδικα:

Sub Btn_Copy()
    Dim Lrow As Long
    Dim cel As Range
    'Dim pro As Range
    Lrow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
    Set cel = Sheet1.Cells(3, 9)
    'Set pro = Sheet1.Cells(2, 9)
    Sheet2.Cells(Lrow + 1, 1).Value = cel.Value
    'pro = cel
    cel.ClearContents
End Sub

Όπου: Sheet1, 2 τα κωδικά ονόματα φύλλων.

Τι κάνει:

Με το κλικ στο κουμπί, ότι δεδομένα έχουμε στο κελί I3 του πρώτου φύλλου, πάει στο δεύτερο φύλλο, στην πρώτη διαθέσιμη, κενή γραμμή, της Α στήλης. [A2, A3,...A(ν)]
Ταυτόχρονα, καθαρίζει το I3 για να εισάγουμε νέα τιμή.
Προαιρετικά:
Αν ενεργοποιήσουμε, τις γραμμές, 3,6,8, τότε στο I2 του φύλλου 1, εμφανίζεται, η τελευταία μας καταχώρηση (που είχαμε στο I3).