Почему мой макрос должен запускаться дважды, чтобы отобразить сводные диаграммы?

Question

В моей книге есть сводные диаграммы.Каким-то образом, когда я запускаю свой макрос, сводные таблицы не отображаются.Когда я снова запускаю макрос, отображаются сводные диаграммы.Почему?

Также иногда, но не всегда, следующая строка выдает ошибку (в выводе Resfresh части): Selection.NumberFormat = "0%"

Я пробовал код, чтобы показатьСводные диаграммы с .Visible = True.Он все еще не показывает сводные таблицы

Sub CopyOrders()

' Unhide all Sheets
For Each ws In ActiveWorkbook.Worksheets
    ws.Visible = xlSheetVisible
    If ws.AutoFilterMode Or ws.FilterMode Then
        ws.ShowAllData
    End If
    ws.Columns.EntireColumn.Hidden = False
    ws.Rows.EntireRow.Hidden = False
Next ws

ActiveWorkbook.SlicerCaches("Slicer_Site_Peros_Number___Name"). _
    ClearManualFilter

' Other code is showing here to calculate and form the tables my pivotcharts are coming from


' Refresh Output
Sheets("Output Frames").Select
ActiveSheet.PivotTables("PivotTableArticles").PivotCache.Refresh
Sheets("Output Frames").PivotTables("PivotTableArticles").DataBodyRange.NumberFormat = "dd/mm/yyyy"
Sheets("Output Frames").PivotTables("PivotTableSoldPerSite").PivotSelect "Percentage", _
    xlDataAndLabel, True
Selection.NumberFormat = "0%"
Columns("A:R").EntireColumn.AutoFit
Range("A2:P4").Font.Size = 30
Range("A6:P8").Font.Size = 20
Range("A42:P44").Font.Size = 20
Range("A1").Select

' Hide Data
Sheets("Output Frames").Columns("R:XFD").EntireColumn.Hidden = True
Sheets("Output Frames").Columns("H").EntireColumn.Hidden = True
Sheets("Output Frames").Columns("N").EntireColumn.Hidden = True
Sheets("Sales").Visible = xlSheetHidden
Sheets("Orders vs Sales").Visible = xlSheetHidden
Sheets("Sitenumbers").Visible = xlSheetHidden
Sheets("PivotTables").Visible = xlSheetHidden

End Sub

Может кто-нибудь сказать, почему сводные таблицы не показывают в первый раз, как это исправить?