insert multiple rows

[iseriesdude]

How can I insert multiple rows ie(20000) by entering a range or a from row and a to row.

 

[Sahak]

Hi iseriesdude

Try this:

1.

Sub Insert_ByRange()
    Range("A6:A11").EntireRow.Insert
End Sub

2.

Sub Insert_ByRows()
    Range(Cells(6, 1), Cells(11, 1)).EntireRow.Insert
End Sub