Vba 在多张Excel表格中应用各种图形（根据每张表格中的行数）

我创建了一个轴心图，将主要城市显示为“过滤器”（总共80个），将某些绩效数字显示为“价值总和”。在Excel文件中，我有26张对应于这些城市所在国家的表格，每张表格中都有一个城市列表（对于某些国家，可以是1行（1个城市）、5行或其他任何形式）

在每个国家/地区表中，我应该显示该表（已经完成）以及表性能的每一行的图表（同样，它可以是1、5或其他）

我认为执行该操作的最简单方法是在每个工作表中粘贴透视图，然后自动选择带有城市名称的每一行，并将其应用于透视的过滤器

到目前为止，这就是我写的代码：

Sub PastPivot() 
    Dim sht As Worksheet
        ActiveSheet.ChartObjects("Chart 1").Activate
        ActiveChart.ChartArea.Copy
    For Each sht In Worksheets
        sht.Range("a16").PasteSpecial
    Next
    Application.CutCopyMode = False
End Sub

但我有几个问题：

当运行代码时，它会弹出“错误5”

我不确定如何编写代码，让它在每张纸上显示尽可能多的图表（以及如何确定图表的位置，因为我不会在每张纸上显示相同数量的图表）

也许解决方案是使用另一种类型的图形，而不是枢轴图形

有没有关于如何执行的建议