ActiveCell.Offset(-3, 1).Range("A1:AX34").Select
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveSheet.PageSetup.PrintArea = "$C$2:$AZ$35"
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""