Как настроить автоматическое обновление даты в сводной таблице excel?

Question

[WebAnalytics1]

Как написать скрипт для обновление даты(берутся из ячеек `H2` `I2` `J2` ) в сводной таблице в excel 2016
С помощью записи макроса получил это

ActiveSheet.PivotTables("СводнаяТаблица13").PivotFields( _
"[Date Reporting].[Calendar YMD].[Year]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("СводнаяТаблица13").PivotFields( _
"[Date Reporting].[Calendar YMD].[Month Year]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("СводнаяТаблица13").PivotFields( _
"[Date Reporting].[Calendar YMD].[DT]").VisibleItemsList = Array("", "", _
"[Date Reporting].[Calendar YMD].[DT].&[ThisWorkbook.Sheets(Статистика).Cells(2, 8).Value]", _
"[Date Reporting].[Calendar YMD].[DT].&[2018-04-02T00:00:00]", _
"[Date Reporting].[Calendar YMD].[DT].&[2018-04-09T00:00:00]")

Данные в ячейки формируются формулой `ТЕКСТ(СЕГОДНЯ()-2;"ГГГГ-ММ-ДДTчч:мм:сс")`

Answer 1

[WebAnalytics1]

нашел "[Date Reporting].[Calendar YMD].[DT].&[" & ThisWorkbook.Sheets("Статистика").Cells(2, 8.Value & "]", _