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:
[TABLE="width: 500"]
<tbody>[TR]
[TD]A[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]B[/TD]
[TD]500[/TD]
[/TR]
[TR]
[TD]C[/TD]
[TD]250[/TD]
[/TR]
</tbody>[/TABLE]

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:

[TABLE="width: 500"]
<tbody>[TR]
[TD]A[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]B[/TD]
[TD]500[/TD]
[/TR]
[TR]
[TD]C[/TD]
[TD]250[/TD]
[/TR]
[TR]
[TD]A[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]B[/TD]
[TD]500[/TD]
[/TR]
[TR]
[TD]C[/TD]
[TD]250[/TD]
[/TR]
[TR]
[TD]A[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]B[/TD]
[TD]500[/TD]
[/TR]
[TR]
[TD]C[/TD]
[TD]250[/TD]
[/TR]
</tbody>[/TABLE]

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!