Insert Row VBA

Hi,

I have the following codes to insert 100 rows starting from the activecell.

Sub AddRows()

Dim i As Long
Application.ScreenUpdating = False
For i = 1 To 100
ActiveCell.EntireRow.Insert
Next i

End Sub

I saw that this macro took rather long time. What is a better way (without
using the for loop) to insert 100 rows?

Thanks!

Kim

Thank you !

Kim