automatisch regels invoeren

[sacredfour]

Sub testrijinvoeren()

Dim aantalregels As String
aantalregels = InputBox("hoeveel regels wil je invoeren?", "selecteer regels voor invoeren", no, 7000, 7000)
If aantalregels = "" Then
MsgBox "u heef geen aantal ingevuld!"

Exit Sub
End If

Dim aantalregels As Number

Hier moet ik dit nummer op een of andere manier omzetten in het aantal regels dat Excel moet invoeren vanaf A2
Hoe doe ik dat?

Is het bv 10 dan zou het worden:

Sheets("autoinvoer").Range("A2:A12").EntireRow.Insert

Kan iemand mij hierbij helpen?

 

[HSV]

rows(2).resize(aantalregels).insert

 

[sacredfour]

Bedankt HSV!