Macro to Paste Selection Every 12 Rows

[garygraham]

I'm new to macros but trying to learn. Thanks in advance for your help.

I'm trying to copy a range of cells A3:G3 (with formulas) and then paste it every 12 rows to the end of the data which is row 67,789. In other words the range A3:G3 would be pasted into A15, A27, A39, A51, etc. all the way to A67,789.

Thanks,
Gary

 

[Trebor76]

It's late here so I must sign off now. I'll check back tomorrow to see how it went.

 

[garygraham]

Trebor 76,

Actually the range should be A3:G13 which contains the formulas which when pasted into the sections every 12 rows below will copy the data in the row above above each section respectively. i.e. The formulas from A3:G13 should be copied into A15:G25, A27:G37, A39:G49... all the way to the end of the sheet at A67587:G67597.

Thanks for your help.
Gary

 

[garygraham]

Trebor76,

This is what finally worked. Thanks for all your help.

Sub CopyPasteMacro()
' Copy A3:G13 and paste every 12 rows thereafter starting at row 15

Dim lngLastRow As Long, _
lngPasteRow As Long

lngLastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

Application.ScreenUpdating = False

For lngPasteRow = 15 To lngLastRow Step 12
If lngPasteRow > 2 Then
Range("A3:G13").Copy Destination:=Range("A" & lngPasteRow & ":G" & lngPasteRow)
End If
Next lngPasteRow

Application.ScreenUpdating = True

End Sub


Thanks,
Gary

 

[Trebor76]

Glad to know it's all sorted