Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Cells( 1 ,  1 ) = ActiveSheet.PivotTables( 1 ).RefreshDate
End Sub

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) ' обработка события листа 
' событие называется обновление сводной таблицы (pivot table - сводная таблица, update - обновление)
' возникает при любом изменении сводной таблицы - рефреш, раскрытие и т.п.
' т.к. событие принадлежит листу, то код должен быть в листе с таблицей
Cells( 1 ,  1 ) = ActiveSheet.PivotTables( 1 ).RefreshDate  ' в ячейку с координатами 1,1 или "A1" кладем свойство
' сводной таблицы раскладка формулы такая
' ActiveSheet- текущий лист
' PivotTables(1) - принадлежащая текущему листу таблица с индексом 1, индекс присваивается автоматом
' по мере создания сводных таблиц и в конкрентном случае может быть неизвестен
' тогда можно ссылаться на имя таблицы например так ActiveSheet.PivotTables("СводнаяТаблица1")
' RefreshDate это свойство принадлежащее таблице 1 принадлежайщей текущему листу.
' свойство содержит дату и время обновления текущей сводной таблицы
End Sub