Print Rows Based on Input

I have the following macro that prints the top row whenever I print a worksheet:

With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
End With

Most of the time the row I want to repeat is either 6 or 11. Row 1 usually worksheet titles and not header data.

Can someone please think of a way where I can get a message box or input box to prompt me for a row number and then incorporate that number for the row number in the macro above?

Thank you.

I could not get this to work. I hope you don't mind helping me a bit further.

I ran the macro with your edits but it did not fill the row to repeat at top box under the sheet tab in the Page Setup dialog box. Your code does generate an input box and it does populate it with the rows I select with the mouse but it does not repeat the rows at top when I print.

I am using Excel 2013 so I get the Page Setup dialog box by going to the Page Layout ribbon and clicking the small arrow in the Page Layout group.

Thank you.