This code will copy the worksheet, just give it a name via the input box. Change the text in red for your sheet name
Dim MySheetName As String
MySheetName = InputBox("Enter new sheet name")
ActiveSheet.Name = MySheetName
. Most of these lines are defaults (unless you changed them) so they can be deleted. Now open the ThisWorkBook module (rightClick the Excel icon to the left of "File" on the menu bar and choose "View Code") and Select "WorkBook" from the left DD and "BeforePrint" from the right DD
Paste the code you recorded in the panel
Private Sub Workbook_BeforePrint(Cancel As Boolean)
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$20"
.LeftHeader = ""
Now each sheet will be setup whenever you print it