Hello all! I'm brand new to macros and VBA. I've searched
everywhere, but can't seem to come up with a solution for this simple
task. I have 45 rows x 4 columns worth of data that need to be copied
down in 51 row increments (no column movement). Right now I'm using
the code below and it works once, but I need to highlight the newly
created cell and repeat manually. The last row to paste the selection
on is 1565. I have no idea how to make it loop. Any help would be
greatly appreciated!

ActiveCell.Resize(45, 4).Copy.ActiveCell.Offset(51, 0)
Application.CopyCutMode = False

This will go to row 1575.

Sub cpy51()
lstRw = Cells(Rows.Count, 1).End(xlUp).Row
Do Until lstRw >= 1565
ActiveCell.Resize(45, 4).Copy ActiveCell.Offset(51, 0)
lstRw = lstRw + 51
Range("A" & lstRw - 44).Activate
Loop
End Sub

"(E-Mail Removed)" wrote:

> Hello all! I'm brand new to macros and VBA. I've searched
> everywhere, but can't seem to come up with a solution for this simple
> task. I have 45 rows x 4 columns worth of data that need to be copied
> down in 51 row increments (no column movement). Right now I'm using
> the code below and it works once, but I need to highlight the newly
> created cell and repeat manually. The last row to paste the selection
> on is 1565. I have no idea how to make it loop. Any help would be
> greatly appreciated!
>
> ActiveCell.Resize(45, 4).Copy.ActiveCell.Offset(51, 0)
> Application.CopyCutMode = False
>
>

Thank you so much!! Now I understand the concept!!!