Copy and Paste Range Down X times

Hi all,

I am really bad with macro and would like to seek your help.

I need a macro which can copy a range and paste it down X number of times. I have attached an image as an example.

The range will be predefined e.g. ("A2:W8")

Capture.PNG

Thank you so much for your time and help.

Hi all,

I found the solution below. Thank you.

Sub Test()

Dim RepNum As Integer

Dim nextrow As Long, i As Long

Application.ScreenUpdating = False

RepNum = Sheets("Starting Inventory").Range("S1").Value

With Sheet1
        .Range("D3:W8").Copy
        For i = 1 To RepNum
            nextrow = .Cells(Rows.Count, "E").End(xlUp).Row
            Range("D" & nextrow + 1).PasteSpecial
        Next i
        
    End With
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Hi

try Below code

Sub test()

Dim myRange As Range, r As Range, iTimes As Integer, i As Integer
Dim sht1 As Worksheet
Set sht1 = Worksheets("Sheet1")
Set myRange = sht1.Range("A2:W8")
    
iTimes = Application.InputBox("Reuired Number", "How many times you want to paste")
 
For i = 1 To iTimes
    myRange.Copy sht1.Range("A" & Range("a" & Rows.Count).End(xlUp).Row).Offset(2)
Next i

End Sub