add row

[israel]

Hello,

I have a spreadsheet that has 250 rows, I have to add a blank row after
every fifth row, is there a formula to apply to my spreadsheet. Manually is
quite a hassle.

Thank you, all

 

[Don Guillett]

Sub addrowevery5()
counter = 6
Do Until Cells(counter, "a") = ""
Rows(counter).Insert
counter = counter + 6
Loop
End Sub

 

[israel]

Sorry to bother, can you be more specific how to execute the formula, I'm a
bit confused.

Thank you again

 

[Don Guillett]

Formulas can not do anything except return a value. This is not a formula.
It is a macro