Добавление среза для соединения двух сводных таблиц - Ошибка выполнения - Невозможно получить свойство PivotTables класса рабочего листа

Question

Я не знаю VBA.Я записал макрос, добавляющий срез в одну сводную таблицу.следующая сводная таблица находится рядом с ней, и столбец имени в обеих таблицах одинаков.

Sub slicer()
'
' slicer Macro
'

'
    ActiveWorkbook.SlicerCaches.Add(ActiveSheet.PivotTables("PivotTable2"), _
        "Agent Name").Slicers.Add ActiveSheet, , "Agent Name", "Agent Name", 176.25, _
        639.75, 144, 198.75
    ActiveSheet.Shapes.Range(Array("Agent Name")).Select
    ActiveSheet.Shapes("Agent Name").IncrementLeft -630
    ActiveSheet.Shapes("Agent Name").IncrementTop -29.25
    With ActiveWorkbook.SlicerCaches("Slicer_Agent_Name")
        .SlicerItems("Arnold,Kirk ").Selected = True
        .SlicerItems("Barrera,Sam").Selected = False
        .SlicerItems("Bartlett,Angela Denise").Selected = False
        .SlicerItems("Beasley,Jeremy Lavell").Selected = False
 End With
End Sub