Insert X Rows Via InputBox

I wanted a macro to insert (the number of rows from Input box) below the active cell. Searching the forums, I found the following code.



Sub InsertRows()
Dim Rng
Rng = InputBox("Enter number of rows required.")
Range(ActiveCell.Offset(1 0), ActiveCell.Offset(Rng, 0)).Select
Selection.EntireRow.Insert
End Sub

If I enter a number it works fine, but if you click on the cancel button or the X to close the Input box, I get a Run-time error (13: Type mismatch). If you enter zero, it inserts 2 rows above the active cell.

I tried to modify another macro, I found on the site, that inserts rows and copies the row above, but always get the Message Box "You didn't specify a range!"



Sub InsertNumRows()
'
Dim Rng As Range

Application.DisplayAlerts = False
On Error Resume Next
Rng = InputBox("Enter number of rows required.")
On Error Goto 0
Application.DisplayAlerts = True.............................