Inserting Multiple Blank Rows On Alternate Rows

[GARY]

I HAVE 642 ROWS THAT I NEED TO INSERT THE WORD "ADD" IN A ROW BENEAT
EACH.

I.E.

123456
ADD
123457
ADD
123458
ADD

ANY TIPS TO INSERT THESE ROWS IN ONE SWEEP

 

[Don Guillett]

try this
Sub insertadd()
For i = Cells(Rows.Count, "a").End(xlUp).Row + 1 To 2 Step -1
Cells(i, "a").Rows.Insert
Cells(i, "a") = "Add"
Next
End Sub