Macro to insert a row after every 4th row

[Amandar097]

I need a macro that will insert a blank row after every fourth row in my
spreadsheet.

Thanks!

 

[Don Guillett]

try

Sub insertrowevery4throw()
For i = 4 To Cells(Rows.Count, "a").End(xlUp).Row Step 4
Rows(i).Insert
Next i
End Sub

 

[Amandar097]

Thanks Don - that's exactly what I needed

try

Sub insertrowevery4throw()
For i = 4 To Cells(Rows.Count, "a").End(xlUp).Row Step 4
Rows(i).Insert
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)