Inserting Blank Lines ?

  • Thread starter Thread starter Bob
  • Start date Start date
B

Bob

Hello,

I looked in their Help, but couldn't find.

How do I "Insert", e.g., 20 blank lines between some existing data lines
?

Would like to do it in a single step.

Thanks,
Bob
 
Sub rowsinserttwenty()

For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
If Cells(i, 1) <> "" And Cells(i, 1) <> "" Then _
Cells(i, 1).Resize(20, 1).entirerow.Insert
Next i

End Sub


Gord Dibben MS Excel MVP
 
Back
Top