adding rows to excel table

I have created an inventory table with about 500 rows (one per item). Now, I
need to add five blank rows after each already entered row. These 5 new rows
contain a formula that is constant throughout the whole thing. Is there a
way to do this without manually adding them one by one? can't i just create
one set of the new rows including the formula and tell the program to insert
it after each existing row?

haystack

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

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