将数据透视表添加到切片器

Question

我有一个代码，可将包含2个数据透视表，1个切片器和数据透视表数据的工作表复制到新工作簿。然后，代码将数据透视表的引用范围更新为刚刚复制的新数据集。此后，切片器不再连接到数据透视表，因为它未连接到同一范围。因此，代码删除了切片器，并重新创建了切片器，这是我在下面的代码顶部成功完成的：

    Workbooks(Wb2).SlicerCaches.Add2(Workbooks(Wb2).Worksheets(SheetName).PivotTables("PivotTable4"), "Month Selection").Slicers.Add Workbooks(Wb2).Worksheets(SheetName), , "Month Selection", "Month Selection", 193.5, 639.75, 144, 198.75

    Workbooks(Wb2).SlicerCaches("Slicer_Month_Selection").PivotTables.AddPivotTable (Workbooks(Wb2).Worksheets(SheetName).PivotTables("PivotTable1"))

代码的后半部分旨在将第二个数据透视表添加到刚刚创建的切片器中。它失败了，我相信这是因为它无法将PivotTable1识别为可连接的数据透视表。如何连接第二个数据透视表？