Repeating Data

[techstyle20]

Hi,

I'm new and just starting to learn VBA.

I need help copying and repeating data underneath itself.

I need to copy a block of data and repeat this data 13 times underneath itself. As the length of the data will change each month I cant get it to paste into specific cells as I want to to repeat after the last row with data in it. I have come up with the following:

Range("A4:D4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("A" & Cells.Rows.Count).End(xlUp).Select

This however only selects the last cell with data in it, I need it to start on the next free line. I also want it to repeat 13 times. I havnt got round to loops yet!

Thanks in advance!

 

[VoG]

Try

Sub btest()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To 13
    Range("A4:D" & LR).Copy Destination:=Range("A" & Rows.Count).End(xlUp).Offset(1)
Next i
End Sub

 

[techstyle20]

Works perfectly,

Thanks you very much!