code for copy paste

[dennisli]

Good morning, everyone,
I am back for another copy paste question:
How to copy range A15:E36 and paste 100 times down from A37?
Thank you.

 

[mikerickson]

Range("A15:E36").Copy Destinaition:=Range("A37").Resize(2200, 5)

 

[VoG]

Try

Sub test()
Dim i As Long
Range("A15:E36").Copy
For i = 1 To 100
    Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteAll
Next i
End Sub