Add a Row Every Fourth Row

[daphoenix]

After I delete all blank rowes I want to add a blank row every 5th row.

 

[Bob Phillips]

For how far

For i = LastRow to 1 Step -4

Rows(i).Insert
Next i

 

[daphoenix]

for like a 100 rows

For how far

For i = LastRow to 1 Step -4

Rows(i).Insert
Next i

--
__________________________________
HTH

Bob

 

[Bob Phillips]

Replace LastRow with 100 then.