Pasting macro

  • Thread starter Thread starter Mark Hall
  • Start date Start date
M

Mark Hall

I need a macro that will copy a set range of data on a row, say A2:L2,
and paste it on each alternate row beginning on A15. I need it to
paste on each alternate row until the cell in column A above the row
to be pasted is blank.
 
Something like:

Option Explicit
Sub testme02()
Dim iRow As Long
With ActiveSheet
iRow = 15
Do
If IsEmpty(.Cells(iRow - 1, "A")) Then
Exit Do
End If
.Range("A2:L2").Copy _
Destination:=.Cells(iRow, "A")
iRow = iRow + 2
Loop
End With
End Sub
 
Back
Top