I want a prompt asking them to enter it.Where is this "given row" coming from?
Do you want a prompt asking them to enter it, or do you just want to run it from the current/active row?
Sub MyInsertRows()
Dim num As Long
' Prompt for row number
num = InputBox("What row number would you like to insert rows under?")
' Insert rows
Rows(num + 1 & ":" & num + 10).Insert Shift:=xlDown
End Sub
Try this:
Code:Sub MyInsertRows() Dim num As Long ' Prompt for row number num = InputBox("What row number would you like to insert rows under?") ' Insert rows Rows(num + 1 & ":" & num + 10).Insert Shift:=xlDown End Sub