Run Time Error 9

I am getting a "Run Time Error 9" with the following script when I go to Activate the new spreadsheet that is being created.

   Application.DisplayAlerts = False
    Set NewBook = Workbooks.Add
    With NewBook
    .Title = "Pipeline Sales Data"
    .Subject = "Pipeline Sales Data"
    .SaveAs Filename:="Pipeline Sales Data"
    
    End With
    Windows("Pipeline Sales Dashboard.xlsx").Activate
    Windows("Macro.xlsm").Activate
    Range("A4:I40").Select
    Selection.Copy
    Windows("Pipeline Sales Data.xlsx").Activate    Range("A3").Select
    ActiveSheet.Paste
    Cells.Select
    Cells.EntireColumn.AutoFit
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "Pivot"
    Sheets("Sheet2").Select
    Windows("Pipeline Sales Dashboard.xlsx").Activate
    Windows("Macro.xlsm").Activate
    Application.CutCopyMode = False
    Sheets("Data").Select
    Cells.Select
    Selection.Copy
    Windows("Pipeline Sales Data").Activate