I made this function to insert a row, every so many rows. Can it be polished more?
[VBA]
Function InsertRow(FirstRowInserted As Integer, LastRowInserted As Integer, Spacing As Integer)
Dim i As Integer
Dim j As Integer
j = -1
For i = FirstRowInserted To LastRowInserted Step Spacing
j = j + 1
Cells(i + j, 1).EntireRow.Insert
Next i
End Function
[/VBA]