Use VBA to paste 6 cells of data into blank rows on another sheet.

[RLloyd]

I have a sheet ("Milestones") with 5400 rows of data across dozens of columns. I already have VBA code that will add 3 blank rows below each original row of data. Now I need to paste into 2J-4K, 6J-8K, etc., of the new blank rows in the Milestones sheet, 6 cells of data that reside in Sheet "Work" A1-B3

1 original data
2 Blank
3 Blank
4 Blank
5 original data
6 Blank
7 Blank
8 Blank
9 original data
.
.
.
21,600

Thank you! This project will recur every 6 months, so VBA is the practical method.

R Lloyd

 

[Kaper]

sub test()
  dim i as long
application.screenupdating=false
with sheets("Milestones")
  for i = 1 to .cells(.rows.count, "A").end(xlup).row step 4
    sheets("Work").range("A1:B3").copy .cells(i+1,"J")
  next i
end with
application.screenupdating=true
end sub

This code shall do the work (not too quick though).
But you do this just twice a year, so may be there is no need for optimization

 

[RLloyd]

Thanks again. I look forward to trying it tomorrow.