Sub OtkritVseKnigi()
'Шаг 1:Объявляем переменные
Dim MyFiles As String

'Шаг 2: Укажите нужную папку
MyFiles = Dir("C:\temp\*.xlx*")
Do While MyFiles <> ""

'Шаг 3: Открываем файлы один за другим
Workbooks.Open "C:\temp\" & MyFiles

'Код макроса с действиями
ActiveWorkbook.RefreshAll
ActiveWorkbook.Close SaveChanges:=True

'Шаг 4: Следующий файл в папке
MyFiles = Dir
Loop
End Sub

https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=147677&TITLE_SEO=147677-vstavka-obekta-na-vse-vydelennye-listy-aktivnoy-knigi

Option Explicit
 
Sub MaskSheetsCopy()
    Dim wbA As Workbook
    Dim wbN As Workbook
    Dim sh As Worksheet
    Dim pref As Variant
    Set wbA = ActiveWorkbook
    For Each pref In Array("ALFAKOM", "BAKUN", "ALKOM")
        Set wbN = Workbooks.Add(1)
        For Each sh In wbA.Sheets
            If sh.Name Like pref & "*" Then
                sh.Copy After:=wbN.Sheets(wbN.Sheets.Count)
            End If
        Next
        If wbN.Sheets.Count > 1 Then
            Application.DisplayAlerts = False
            wbN.Sheets(1).Delete
            wbN.SaveAs ThisWorkbook.Path & "\" & pref & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
            Application.DisplayAlerts = True
        Else
            wbN.Close False
        End If
    Next
End Sub

Table.FillDown(#"Измененный тип",{"Контрагент", "Торговая точка"})

=rankx(all('Товар'[Номенклатура]);[Сумма]/ CALCULATE( SUM('Товар'[Сумма]); ALLEXCEPT('Товар';'Товар'[Год];'Товар'[Месяц]) ) )

СУММЕСЛИМН(Исх[Продажа];Исх[Заказчик];H3;Исх[Статус];I3)

СУММЕСЛИМН(C4:C11;A4:A11;H3;B4:B11;I3)