In diesem Beispiel werden die Daten der Zellen C1:C5 in Sheet1 in die Zellen D1:D5 in Sheet1 kopiert.
Worksheets("Sheet1").Range("C1:C5").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("D1:D5")