[Spirosgr]

καλησπέρα
Δεν είχα δεί τα post του Τάσου όταν έφτιαξα ένα κωδικάκι για να δίνει το ζητούμενο
αφού λοιπόν το έκανα δείτε το κι αυτό
ένας εναλλακτικός αρκετά μικρότερος κώδικας για να έχουμε το ζητούμενο
χωρίς να χρειάζονται και οι περιορισμοί στα κελιά Α1....Α10 (δεν τα αγγίζει καθόλου)

Sub test()
Dim i As Long
Application.ScreenUpdating = False
i = Range("D" & Rows.Count).End(xlUp).Row
Range("A12:A" & i).Value = Range("A11").Value
End Sub

Μετράει απλά πόσα κελιά στη D έχουν δεδομένα και σε τόσα κελιά από το Α12 και κάτω (συμπεριλαμβάνεται) τοποθετεί την αξία του Α11

ΥΓ το να βολεύει μιά λύση δεν πάει να πεί ότι είναι και ότι καλύτερο
υπάρχει πιθανότητα εν καιρώ να μας ξεβολέψει μια και καλή