Inserting rows - better way than this?

[TheWennerWoman]

My code takes forever if I ask it to insert, say, 2500 rows. Is there a quicker way?

Sub Go()

Dim zinput As Long
Dim counter As Long

zinput = InputBox("How many rows to insert?")
Application.ScreenUpdating = False
For counter = 1 To zinput + 1
Range("A2:X2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next
Application.ScreenUpdating = True
End Sub

Many thanks!

 

[Fluff]

How about

Sub Go()

Dim zinput As Variant

zinput = InputBox("How many rows to insert?")
If zinput = "" Then Exit Sub
Application.ScreenUpdating = False
Range("A2:X2").Resize(zinput).Insert xlDown
End Sub

 

[TheWennerWoman]

Brilliant, many thanks!

 

[Fluff]

You're welcome & thanks for the feedback.