Application Run not working

I am using the below code to copy & paste and export to PDF, but I keeping breaking on Application Run at the bottom. Any help?
Thanks.

Sub Update()

' Update Macro

Application.CutCopyMode = False
    Workbooks.Open Filename:= _
         "k:\path\paths\Final\MSP_M.xlsm"

    Cells.Select
    Selection.Copy
    Windows("City of Calgary.xlsm").Activate
    ActiveWorkbook.Worksheets("Raw").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
        Windows("MSP_M.xlsm").Activate
            ActiveWindow.Close
            
     Windows("Cit.xlsm").Activate
     ActiveWorkbook.Save
     
         ThisWorkbook.Sheets(Array("a", "b", "c")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "s:\Stats\Test Title Page Merge vba\Cit.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=False

Application.Run "Merge"

End Sub