Copy Range Multiple Times

[healey21]

Can anyone help with VBA code to copy a range of cells A2:L4 10 times with a gap of 2 rows between each table.

 

[Peter_SSs]

Can anyone help with VBA code to copy a range of cells A2:L4 10 times with a gap of 2 rows between each table.

Try this in a copy of your workbook.


<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> CopyRange()<br>    <SPAN style="color:#00007F">Dim</SPAN> rws <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <br>    <SPAN style="color:#00007F">With</SPAN> Range("A2:L4")<br>        rws = .Rows.Count + 2<br>        .Resize(rws).Copy Destination:=.Offset(rws).Resize(rws * 10)<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[GTO]

...

 

[healey21]

Try this in a copy of your workbook.



Sub CopyRange()
Dim rws As Long

With Range("A2:L4")
rws = .Rows.Count + 2
.Resize(rws).Copy Destination:=.Offset(rws).Resize(rws * 10)
End With
End Sub

Peter thank you this will enable me to move to the final stage of this project.