Copy all rows in a sheet and paste multiple times below in the same sheet

[anglais428]

Hi Guys,

I am looking at taking the following:

A	100
B	500
C	250

<tbody>
</tbody>

and replicating it (full rows) by 'X' times. I would like a Message Box to ask for the number of times it should be replicated.
If the user was to enter '2' then, on the same Sheet, it should look like:

A	100
B	500
C	250
A	100
B	500
C	250
A	100
B	500
C	250

<tbody>
</tbody>

i.e. the original plus the 2 duplicates.
Ideally, I would like this to be a VBA solution as the number of rows is very large.
Thanks,

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long, x As String
LR = Range("A" & Rows.Count).End(xlUp).Row
x = InputBox("How many times?")
Range("A1:B" & LR).Copy
For i = 1 To x
    Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
Next i
End Sub

 

[anglais428]

Perfect, thanks VoG!