Editing a macro to print additional rows

I have a macro to print a user-defined range of cells.

Sub print2()
My_Range = InputBox("Enter the name of the area to print:")
If Len(My_Range) > 0 Then Range(My_Range).PrintOut
If Err > 0 Then MsgBox "Name or range specified is not valid."

End Sub

I did not write it, one of my co-workers did. How do I make it print rows 1-6 (contains header information) in the same columns that the user selected?