Sub AskIt()
Dim arrInp() As String, V As Variant
Dim Rw As Range, x As Long, z As Long
arrInp = Split(InputBox("Zeilennummer(n) ", "Zahlen durch Leerzeichen getrennt eingeben"), Chr(32))
If UBound(arrInp) >= 0 Then
Set Rw = ActiveCell.EntireRow
For x = LBound(arrInp) To UBound(arrInp)
Rows(arrInp(x) + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rw.Copy Cells(arrInp(x) + 1, 1)
Next x
End If
End Sub