[Tasos]

Καλημέρα Νίκο!
Αν θέλεις απλά η στήλη D να παίρνει τις τιμές της στήλης A τότε
με VBA δεν χρειάζεται να κάνεις αντιγραφή - επικόλληση.

Σύμφωνα με τα παραπάνω, μπορείς να χρησιμοποιήσεις τον παρακάτω κώδικα που είναι και γρηγορότερος στην εκτέλεση:

Sub CopyRange()
    With Worksheets("Sheet1")   'όπου "Sheet1" = το όνομα του φύλλου στο οποίο γίνεται η ενέργεια αυτή.
        .Range("D6", "D" & Rows.Count).Value = .Range("A6", "A" & Rows.Count).Value
    End With
End Sub

Τάσος