You can use a VBA macro like the following:


Sub AAA()
Dim LastRow As Long
Dim RowNdx As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For RowNdx = 6 To LastRow Step 6
Rows(RowNdx).Insert
Next RowNdx
End Sub



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"Med" wrote in message
...
I have a worksheet that has about 2000 rows. I want to insert a
blank
row every five rows. Doing the same steps 400 times is time
consuming
and no fun. And I have to do this often. Is there a quicker
way to
do this?