27.04.2015, 11:42
Hallo Angelina,
Code:
Sub ang()
Range("Dw1:Fs20").Copy Range("DW22")
'call ....für ersten Teil
For i = 1 To 19
Range("Dw22:Fs22").Copy Range("DW" & 22 + i)
'Call .....für die restlichen Teile
Next
End Sub