Insert row macro

[Dominique Feteau]

I have a sheet that has about 60 client names. What I want to do is insert
3 new blank rows after each client. Any quick & easy way of doing this?

 

[Tom Ogilvy]

Assume last entry is in row 60

Sub InsertBlankRows()
for i = 60 to 1 step -1
cells(i+1,1).Resize(3).EntireRow.Insert
Next
end Sub