Excel VBA Macro To Insert Desired No.of Rows

Macro To Insert Desired No.of Rows

Sub Insrows()

Dim i As Integer

Dim j As Integer

ActiveCell.Select

i = InputBox("Enter The Desired No.of Rows To Insert ")

For j = 1 To i

Selection.EntireRow.Insert

Next j

End Sub