Select User Definable Number of Cells in a Column

I have this code, which allows me to select a cell, run the macro and then enter the number of blank rows to insert below the selected cell. Is there any way to adapt this, using the same principal so that I can select a cell, run a macro and then enter the number of cells I'd like to select in the same column?

Sub InsertRows()

    Dim j, r As Range
    j = Application.InputBox("Type the Number of Rows to be Inserted", , , , , , , 1)
    If j = False Then Exit Sub
    Set r = Selection

Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert

End Sub

Many thanks...