Inserting Blank Lines ?

[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

 

[Gord Dibben]

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