automatically insert 8 blank rows between each record

[Evad]

I am trying to insert 8 blank rows in between all records in my spreadsheet.
Any suggestions using macros,etc.

Thanks

[Ken Johnson]

Hi Evad,
Try this macro (on a backup copy first)...

Public Sub EightRowsTween()
Application.ScreenUpdating = False
Dim iLastRow As Long
Dim rngLastRow As Range
iLastRow = ActiveSheet.UsedRange.Rows.Count
Do While iLastRow > 1
Set rngLastRow = Range(Cells(iLastRow, 1), _
Cells(iLastRow + 7, 1))
rngLastRow.EntireRow.Insert
iLastRow = iLastRow - 1
Loop
End Sub

If you ever need to insert a different number of rows between all
records you can change the 7 in the 5th last line eg for 5 rows between
records change the 7 to 4 (always 1 less than the number of inserted
rows)

Ken Johnson