Macro Slicer runtime error '1004' application-defined or object-defined error vba excel

I need to create a slicer that affects all the pivot tables that belong to certain types of work orders. For that first I create the slicer from a pivot table, and then I try to add the other pivots by means of a macro

Sub Button13_Click()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Pivots")

    'CE OP Slicers
    'Mgr Slicer
    ThisWorkbook.SlicerCaches("Slicer_Mgr1").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable1"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr1").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable2"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr1").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable3"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr1").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable4"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr1").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable5"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr1").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable7"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr1").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable27"))

    'Range Slicer
    ThisWorkbook.SlicerCaches("Slicer_Ranges1").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable1"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges1").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable2"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges1").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable3"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges1").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable4"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges1").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable5"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges1").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable7"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges1").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable27"))

'SLED Pivot Tables
'Mgr Slicers
    ThisWorkbook.SlicerCaches("Slicer_Mgr3").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable8"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr3").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable9"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr3").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable10"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr3").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable11"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr3").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable12"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr3").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable14"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr3").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable30"))

    'Range Slicers
    ThisWorkbook.SlicerCaches("Slicer_Ranges3").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable8"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges3").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable9"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges3").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable10"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges3").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable11"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges3").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable12"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges3").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable14"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges3").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable30"))

'CA Pivot tables
    'Mgr slicers
    ThisWorkbook.SlicerCaches("Slicer_Mgr").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable15"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable16"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable17"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable18"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable19"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable21"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable31"))

    'Range Slicers
    ThisWorkbook.SlicerCaches("Slicer_Ranges").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable15"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable16"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable17"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable18"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable19"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable21"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable31"))

'CE Future POs
    'Mgr slicers
    ThisWorkbook.SlicerCaches("Slicer_Mgr2").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable22"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr2").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable23"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr2").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable24"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr2").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable25"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr2").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable28"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr2").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable29"))

    ThisWorkbook.SlicerCaches("Slicer_Mgr2").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable32"))

    'Range slicers
    ThisWorkbook.SlicerCaches("Slicer_Ranges2").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable22"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges2").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable23"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges2").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable24"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges2").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable25"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges2").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable28"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges2").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable29"))

    ThisWorkbook.SlicerCaches("Slicer_Ranges2").PivotTables. _
    AddPivotTable (sh.PivotTables("PivotTable32"))
End Sub

When I inspect it in the macros window it does not give me any type of error, but when I run it, it sends me the following message

  

runtime error '1004' application-defined or object-defined error

And when I open the debug it always points me to the next line of code

'CE OP Slicers
'Mgr Slicer
ThisWorkbook.SlicerCaches("Slicer_Mgr1").PivotTables. _
AddPivotTable (sh.PivotTables("PivotTable1"))

Does anyone have any idea why I could be giving me that error? The pivot tables do not have any problem, because before this step I do another where I change the datasource also via module.

Thanks for your time.

Edit: I add screenshot with active references in the project