Insert row macro

  • Thread starter Thread starter Dominique Feteau
  • Start date Start date
D

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?
 
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
 
Back
Top