ExcelBanter - View Single Post - macro to copy cells to intermittent rows in a spreadsheet

BROCK8292

thank you all for ur help

"Don Guillett" wrote:

You will also want to change the 12 to whatever desired.
Sub copymodrows()

maybe use a variable to determine the last row

lr-cells(rows.count,"h").end(xlup).row
for i= 1 to lr step 52

For i = 1 To 12 Step 3
Range("h1").Resize(, 3).Copy Cells(i, "h")
Next
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Don Guillett" wrote in message
...
try testing this and then just change the step 3 to whatever is desired
such as 52
Sub copymodrows()
For i = 1 To 12 Step 3
Range("h1").Resize(, 3).Copy Cells(i, "h")
Next
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"BROCK8292" wrote in message
...
im trying to copy formulas from cells h,i, and j in row 2 to
the same cells in rows 52,102,152,202,252,302,etc.... up to row 49902
i thought a macro could do the trick but im having a hard time with the
language
any help or ideas would be greatly appreciated
thank you
brock
spokane, wa