[Tasos]

Καλησπέρα Νίκο.

Δοκίμασε:

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

Τάσος