Input Box - Insert Rows

Hello,

I am trying to learn how to use input boxes so I have the code below, just something simple to insert a large number of rows.

How can I set up an input box where it asks the user which range they would like to insert rows? Thank you !

Sub InsertRows()
'
' InsertRows Macro
Range("A1:A25").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
End Sub