KPI 1 Факт = CALCULATE(SUMX('Sales_ETM';[Себестоимость_(81)]);'Sales_ETM'[Класс(55)]<>"Ц";'Sales_ETM'[Месяц]="9";Sales_ETM[ТМ]="Петров П.")

Sub update()
    FilesToOpen = "С://prod20_22.xlsx"
       
    Application.ScreenUpdating = False
    Set importWb = Workbooks.Open(FilesToOpen, , True)
    
    Application.ScreenUpdating = True
    
    arr1 = [Sales_ETM]
    arr2 = [Sales_RS]
    arr3 = [Plany]
    arr4 = [AMB_ETM]
    arr5 = [num]
    arr6 = [Sales_ETM_20_22]
    arr7 = [Sales_RS_20_21]
    arr8 = [land_TM]
    arr9 = [mfon]
    arr11 = [land_TM_RS]

If Not [land_TM].ListObject.DataBodyRange Is Nothing Then [land_TM].ListObject.DataBodyRange.Delete
    arrd8 = [land_TM].Resize(UBound(arr8))
    cr = 1
    For i = 1 To UBound(arr8)
        If arr8(i, 1) = ThisWorkbook.Sheets("p-f KPI").Range("B2") And arr8(i, 4) = ThisWorkbook.Sheets("p-f KPI").Range("J1") Then
            For j = 1 To 4
                arrd8(cr, j) = arr8(i, j)
            Next
            cr = cr + 1
        End If
    Next
    If cr > 1 Then [land_TM].Resize(cr - 1) = arrd8

If Not [land_TM_RS].ListObject.DataBodyRange Is Nothing Then [land_TM_RS].ListObject.DataBodyRange.Delete
    arrd11 = [land_TM_RS].Resize(UBound(arr11))
    cr = 1
    For i = 1 To UBound(arr10)
        If arr11(i, 1) = ThisWorkbook.Sheets("p-f KPI").Range("B2") Then
            For j = 1 To 4
                arrd11(cr, j) = arr10(i, j)
            Next
            cr = cr + 1
        End If
    Next
    If cr > 1 Then [land_TM_RS].Resize(cr - 1) = arrd11

If Not [Sales].ListObject.DataBodyRange Is Nothing Then [Sales].ListObject.DataBodyRange.Delete
    arrd1 = [Sales].Resize(UBound(arr1))
    cr = 1
    For i = 1 To UBound(arr1)
        If arr1(i, 20) = ThisWorkbook.Sheets("p-f KPI").Range("B2") And arr1(i, 1) = 2022 Then
                For j = 1 To 21
                arrd1(cr, j) = arr1(i, j)
            Next
            cr = cr + 1
        End If
    Next
    If cr > 1 Then [Sales].Resize(cr - 1) = arrd1

If Not [Sales].ListObject.DataBodyRange Is Nothing Then [Sales].ListObject.DataBodyRange.Delete
    arrd1 = [Sales].Resize(UBound(arr1))
    cr = 1
    For i = 1 To UBound(arr1)
        If arr1(i, 20) = ThisWorkbook.Sheets("p-f KPI").Range("B2") And arr1(i, 1) = 2022 Then
               
                arrd1(cr, j) = arr1(i, j)
            
        ElseIf arr1(i, 20) = ThisWorkbook.Sheets("p-f KPI").Range("B4") And arr1(i, 1) = 2022 Then
               For j = 1 To 21
                arrd1(cr, j) = arr1(i, j)
            Next
            cr = cr + 1
        End If
    Next
    If cr > 1 Then [Sales].Resize(cr - 1) = arrd1

If Not [Sales].ListObject.DataBodyRange Is Nothing Then [Sales].ListObject.DataBodyRange.Delete
    arrd1 = [Sales].Resize(UBound(arr1))
    cr = 1
    For i = 1 To UBound(arr1)
        If arr1(i, 20) = ThisWorkbook.Sheets("p-f KPI").Range("B2") And arr1(i, 1) = 2022 Then
        ElseIf arr1(i, 20) = ThisWorkbook.Sheets("p-f KPI").Range("B4") And arr1(i, 1) = 2022 Then
               For j = 1 To 21
                arrd1(cr, j) = arr1(i, j)
            Next
            cr = cr + 1
        End If
    Next
    If cr > 1 Then [Sales].Resize(cr - 1) = arrd1

Sub Обновить()
    'Выбор и открытие таблицы откуда берем данные 
    FilesToOpen = Application.GetOpenFilename _
        ("Excel files(*.xls*),*.xls*", 1, "Выбрать файл", , False)
    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "Файл не выбран!"
        Exit Sub
    End If
    Application.ScreenUpdating = False 'отключаем обновление экрана (для экономии мощностей)
    Set importWb = Workbooks.Open(FilesToOpen, , True) 'видимо копирует данные из открытой книги
    arr = [Отчет_продажи] 'присваиваем значению массива название умной таблицы "Отчет продажи" из открытого файла
    importWb.Close False 'вот тут я уже не понял (
    'дальше запускается модуль переноса строк, в которых имеется значение в ячейке столбца 6 "Петров П." в умную таблицу "Продажи_Петров"
    If Not [Продажи_Петров].ListObject.DataBodyRange Is Nothing Then [Продажи_Петров].ListObject.DataBodyRange.Delete   
    arrd = [Продажи_Петров].Resize(UBound(arr))
    cr = 1
    For i = 1 To UBound(arr)
        If arr(i, 6) = "Петров П." Then
            For j = 1 To 6
                arrd(cr, j) = arr(i, j)
            Next
            cr = cr + 1
        End If
    Next
    If cr > 1 Then [Продажи_Петров].Resize(cr - 1) = arrd
    Application.ScreenUpdating = True
    ' перенесли данные и написали "Готово" и в каком-то другом случае пишем "Информация"
    MsgBox "Готово!", vbInformation, "Информация"
End Sub

    arr = [Отчет_продажи] 'присваиваем значению массива название умной таблицы "Отчет продажи" из открытого файла
    importWb.Close False 'вот тут я уже не понял (
    'дальше запускается модуль переноса строк, в которых имеется значение в ячейке столбца 6 "Петров П." в умную таблицу "Продажи_Петров"
    If Not [Продажи_Петров].ListObject.DataBodyRange Is Nothing Then [Продажи_Петров].ListObject.DataBodyRange.Delete   
    arrd = [Продажи_Петров].Resize(UBound(arr))
    cr = 1
    For i = 1 To UBound(arr)
        If arr(i, 6) = "Петров П." Then
            For j = 1 To 6
                arrd(cr, j) = arr(i, j)
            Next
            cr = cr + 1
        End If
    Next
    If cr > 1 Then [Продажи_Петров].Resize(cr - 1) = arrd
    Application.ScreenUpdating = True

importWb.Close False 'вот тут я уже не понял (