Copy and insert multipel rows after each row of data
Try the below macro..
Sub MyMacro()
Dim lngRow As Long
lngRow = 1
Do While Range("A" & lngRow) ""
Rows(lngRow).Offset(1).Resize(19).Insert
Rows(lngRow).Copy Rows(lngRow + 1 & ":" & lngRow + 19)
lngRow = lngRow + 20
Loop
End Sub
--
Jacob (MVP - Excel)
"myork" wrote:
I need to copy a row and insert it 19 times in the rows below it, for 100+
rows.
|