Set report = CreateObject("Excel.Application")
Set Wb = report.Workbooks.Open(Me.Path)
Set WS1 = Wb.Sheets("ЧасовФактСотрудниковПоЗадач") ' лист с выгрузкой из БД
Set WSSvodPlan = Wb.Sheets("ДляПланаПоСотрудникам") '  лист со сводной таблицей
LastRow = WS1.usedRange.Row + WS1.usedRange.Rows.Count - 1 'последняя строка листа с выгрузкой из БД
WSSvodPlan.PivotTables("СводнаяТаблица1").ChangePivotCache Wb.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=WS1.Range("A2:AC" & LastRow), Version:=xlPivotTableVersion15)
WSSvodPlan.PivotTables("СводнаяТаблица1").PivotCache.Refresh

[VB]АctiveSheet.PivotTables("СводнаяТаблица1").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "C:\Users\ggvozdko\Documents\[Загрузка ПС с 14.07.17 по 20.07.17.xlsx]ЧасовФактСотрудниковПоЗадач!R1C1:R292C29" _
        , Version:=xlPivotTableVersion15)[/VB]