How to Insert Desired No.of Rows in Excel with VBA

VBA Macro to Insert Desired No.of Rows in Excel

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