ik ben der eindelijk uitgekomen
Code:
Sub Rij_add()
Dim vInputgetal As Long
vTeller = 0
On Error Resume Next
Application.DisplayAlerts = False
vInputgetal = Application.InputBox _
(Prompt:="Hoeveel rijen wilt u invoegen ?", _
Title:="Abbot Zwolle Beslisboom", Type:=1)
On Error GoTo 0
Application.DisplayAlerts = True
If vInputgetal = 0 Then
Exit Sub
Else
Do
vTeller = vTeller + 1
Sheets("Sheet2").Rows("1").Copy
ActiveCell.Offset(1, 0).Select
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
Loop Until vTeller = vInputgetal
End If
End Sub