Inserting Multiple Blank Rows On Alternate Rows

  • Thread starter Thread starter GARY
  • Start date Start date
G

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