Sub PVT_Refresh()
    Dim Rows_1 As Integer
    Dim Cols_1 As Integer
    Dim WrkSheet As Worksheet
    
    Set WrkSheet = ThisWorkbook.Worksheets("DownloadsClimes") ' SQL таблица
    Rows_1 = ThisWorkbook.Worksheets("sys").Cells(1, 2).Value ' Размер SQL таблицы
    Cols_1 = ThisWorkbook.Worksheets("sys").Cells(2, 2).Value ' Размер SQL таблицы
    
    Set WrkSheet = ThisWorkbook.Worksheets("Не в работе")     ' Лист со Сводным отчетом
    Dim PVT_1 As PivotTable
    Set PVT_1 = WrkSheet.PivotTables("Отчет1")                ' Таблица, которой нужно изменить источник(его размер)

    Dim SrcData As String
    SrcData = "DownloadsClimes!R1C1:R" & Rows_1 & "C" & Cols_1
    PVT_1.ChangePivotCache ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=SrcData, Version:=xlPivotTableVersion14)
    PVT_1.PivotCache.Refresh
End Sub