I usually use a for loop

For RowCount = 21 to 1000 step 15

Range("B6:B10").copy Destination:=Range("B" & RowCount & ":B" & (RowCount
+ 4))

next RowCount


"Neel" wrote:

I have a spreadsheet with approx 3000 rows. This is basically broken
up into 200 odd SKU's that have 15 different metrics that I'm
showing.
e.g. SKU 123456 occupies rows 6-20, SKU 456789 occupies 21-35 and so
on and so forth.

I'm trying to create a macro that will go through the worksheet and
paste the same formula at every fifteenth row until the next row is
empty.
e.g. The 11th row for each SKU is a sum of the rows 12-15. The 3rd row
for each SKU is a vlookup from a table etc etc.

Any help is greatly appreciated.