Sub InsertRows()
On Error GoTo ERR_R
Dim InsR As Long
InsR = Application.InputBox("Enter How Many Row Want To Insert", "Row Insert")
ActiveCell.Offset(1, 0).EntireRow.Resize(InsR).Insert
Exit Sub
ERR_R:
If Err.Number = 13 Then
MsgBox "Please Enter Only Numeric Value", vbCritical
End If
End Sub