I currently have a macro that pulls data from a workbook and creates a new workbook with a sheet called "Appendix A." This sheet contains seven print areas. Below you can see the relevant code from my macro. The problem I am facing is that I would like the first print area ($G$8:$Q$40) to be Landscape for when I go to print, the second and third print areas ($C$42:$M$108,$O$42:$Y$108) to be Portrait, and the fourth through seventh print areas ($C$110:$M$157,$C$159:$M$206,$O$110:$Y157,$O$159:$Y$206) to be Landscape. Any ideas how and where I can type this fix?

Thank you!

PHP Code: 
 Calculate
             Call Top40
             Call Top40Trend
             
                Application.StatusBar = "Macro - Running"
                Workbooks.Add
                Temp1 = ActiveWorkbook.Name
                Windows(Thisfile).Activate
                Sheet9.Select
                ActiveSheet.Copy before:=Workbooks(Temp1).Sheets(1)
                Workbooks(Temp1).Activate
                Range("c1:y210").Select
                Selection.Copy
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
                Application.CutCopyMode = False
                Range("a1:b210").ClearContents
                Range("z1:AF20").Delete
                Range("aa113:Af210").Delete
                
                ActiveSheet.Select
                Rows("40:40").Select
                Selection.Insert shift:=xlDown, copyorigin:=FormatFromleftorabove
                
                ActiveSheet.PageSetup.PrintArea = "$G$8:$Q$40,$C$42:$M$108,$O$42:$Y$108,$C$110:$M$157,$C$159:$M$206,$O$110:$Y157,$O$159:$Y$206"
                ActiveSheet.Name = "Appendix A NPA" & sitenumber
                Cells.Select
                    Selection.Locked = False
                    Selection.FormulaHidden = False
                    Range("a1:c4").Select
                    Selection.Locked = True
                    Selection.FormulaHidden = False
                    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
                    ActiveSheet.EnableSelection = xlUnlockedCells
                    ActiveSheet.Range("a1").Select