Creating a Copy/Paste Loop
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
|