How to copy a range n times

[Waimea]

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.

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?

 

[Peter h]

This is what I love about this community. In the time it took me to write up a small loop the way I would have addressed the problem, Fluff gives a highly efficient solution that teaches me something new. I didn't even know about the InputBox function.

If you want a box to pop up asking for a number, just change where you set the nmbr variable.