haystack
Looks like I had a hiccup with my previous post as the code did not
show up
here is a macro that will insert 5 blank lines after every row
something similar can be done to insert formulas as required or to copy
a range and paste it into the blank rows
Sub InsertRows()
Dim lRow As Long
For lRow = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
Rows(lRow & ":" & lRow + 4).Insert Shift:=xlDown
Next lRow
End Sub
--
mudraker
------------------------------------------------------------------------
mudraker's Profile:
http://www.excelforum.com/member.php...fo&userid=2473
View this thread:
http://www.excelforum.com/showthread...hreadid=535761