Автоматически запускать макрос перед обновлением сводной таблицы

Question

Я хочу запускать макрос автоматически при событии обновления сводки, но проблема здесь в том, что сначала запускаются макросы, а затем сводка должна получить обновление

Я пробовал все эти события, ни один из них не работает мне

Private Sub Worksheet_PivotTableAfterValueChange(ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)
    MsgBox "Worksheet_PivotTableAfterValueChange"
End Sub

Private Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
    MsgBox "Worksheet_PivotTableBeforeAllocateChanges"
End Sub

Private Sub Worksheet_PivotTableBeforeCommitChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
    MsgBox "Worksheet_PivotTableBeforeCommitChanges"
End Sub

Private Sub Worksheet_PivotTableBeforeDiscardChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)
    MsgBox "Worksheet_PivotTableBeforeDiscardChanges"
End Sub

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

см. Эту ссылку для получения дополнительной информации: https://answers.microsoft.com/en-us/msoffice/forum/all/automatically-executing-a-macro-when-i-refresh/d11c424c-4ba5-4ba1-9454-e2c0072cdb7f