I am trying to copy a range ("A2:H41") 40 times down but I would also like the choice to copy it a range x times down.
I can't get this to work, what am I doing wrong?
Code:
Sub CopyMeTimesDown
Dim rng As range
Set rng = range("A2:H41")
Dim batchSize As Integer
Set batchSize = 40
Dim x As Integer
rng.Select
For x = 1 To 1601 Step batchSize
ActiveSheet.Paste
Next x
End Sub
I can't get this to work, what am I doing wrong?
Last edited: