Question: different page orientations for different print areas

Sub Macro1()
    Dim MyPrintAreas    As Variant, _
        AreaNum         As Long, _
        Ndx             As Long, _
        Prompt          As String
        
    MyPrintAreas = Array( _
        Array("$G$8:$Q$40", xlLandscape), _
        Array("$C$42:$M$108", xlPortrait), _
        Array("$O$42:$Y$108", xlPortrait), _
        Array("$C$110:$M$157", xlLandscape), _
        Array("$C$159:$M$206", xlLandscape), _
        Array("$O$110:$Y157", xlLandscape), _
        Array("$O$159:$Y$206", xlLandscape))
    
    Prompt = "Select an area to print"
    For Ndx = LBound(MyPrintAreas) To UBound(MyPrintAreas)
        Prompt = Prompt & vbCrLf & vbCrLf & vbTab & Ndx + 1 & vbTab & MyPrintAreas(Ndx)(0)
    Next Ndx
    Ndx = 0
    Ndx = InputBox(Prompt) - 1

    With ActiveSheet.PageSetup
         .PrintArea = ""
        .PrintArea = MyPrintAreas(Ndx)(0)
        .Orientation = MyPrintAreas(Ndx)(1)
    End With
End Sub

Without seeing the actual code, I'm guessing it will look something like:

'--------------------------------------------------------------
'added to top of existing code
'--------------------------------------------------------------
    Dim MyPrintAreas    As Variant, _
        AreaNum         As Long, _
        Ndx             As Long, _
        Prompt          As String
        
    MyPrintAreas = Array( _
        Array("$G$8:$Q$40", xlLandscape), _
        Array("$C$42:$M$108", xlPortrait), _
        Array("$O$42:$Y$108", xlPortrait), _
        Array("$C$110:$M$157", xlLandscape), _
        Array("$C$159:$M$206", xlLandscape), _
        Array("$O$110:$Y157", xlLandscape), _
        Array("$O$159:$Y$206", xlLandscape))
'--------------------------------------------------------------
 'Your code continues ...
 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.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
'--------------------------------------------------------------
'                       print code: loop through printarea with one printout per each
'--------------------------------------------------------------
    With ActiveSheet
        For Ndx = LBound(MyPrintAreas) To UBound(MyPrintAreas)
            With .PageSetup
                .PrintArea = ""
                .PrintArea = MyPrintAreas(Ndx)(0)
                .Orientation = MyPrintAreas(Ndx)(1)
            End With
            .PrintOut
        Next Ndx
    End With
'--------------------------------------------------------------