hi,
here is something that might help. paste this code in a standard module and
run it.
Sub Macro1()

Dim r1 As Range
Dim r2 As Range

Range("A6").Select
Set r1 = Range("A6") 'assuming you have a header row
Do While Not IsEmpty(r1)
Set r2 = r1.Offset(4, 0)
ActiveCell.EntireRow.Insert
r1.Offset(4, 0).Select
Set r1 = r2
Loop

End Sub

regards
FSt1

"EmmaSB" wrote:

I have a large file (1,000+ rows) and I need to insert a blank row after
every four rows. Is there an easy way to do this without having to manually
insert each row?

Thank you.