let
    // Укажи путь к папке с файлами
    Папка = "C:\Путь\К\Вашей\Папке\",

    // Получаем все файлы в папке
    Источник = Folder.Files(Папка),

    // Оставляем только файлы .xlsx
    ТолькоXLSX = Table.SelectRows(Источник, each Text.EndsWith([Extension], ".xlsx")),

    // Добавляем содержимое первого листа каждого файла
    ДобавленныеДанные = Table.AddColumn(ТолькоXLSX, "Таблица", each Excel.Workbook([Content], false)),

    // Разворачиваем таблицы
    Развернуто = Table.ExpandTableColumn(ДобавленныеДанные, "Таблица", {"Data", "Item", "Kind"}, {"Data", "Item", "Kind"}),

    // Оставляем только листы (Kind = "Sheet")
    ТолькоЛисты = Table.SelectRows(Развернуто, each [Kind] = "Sheet"),

    // Оставим только данные с первого листа
    ТолькоПервыйЛист = Table.Group(ТолькоЛисты, {"Name"}, {{"ПервыйЛист", each Table.FirstN(_,1)}}),
    Расплющено = Table.Combine(Table.TransformColumns(ТолькоПервыйЛист, {"ПервыйЛист", each _[Data]{0}})),

    // Преобразуем в таблицу
    Заголовки = Table.PromoteHeaders(Rасплющено, [PromoteAllScalars=true]),

    // Фильтр по колонке "КОД"
    ТолькоКОД = Table.SelectRows(Заголовки, each 
        Text.StartsWith(Text.From([КОД]), "111") or
        Text.StartsWith(Text.From([КОД]), "222") or
        Text.StartsWith(Text.From([КОД]), "333"))
in
    ТолькоКОД

Sub ОбъединитьФайлы()
    Dim папка As String
    Dim файлИмя As String
    Dim wbИсточник As Workbook
    Dim wbРезультат As Workbook
    Dim wsИсточник As Worksheet
    Dim wsРезультат As Worksheet
    Dim последнийРядок As Long
    Dim i As Integer
    Dim rngФильтр As Range
    Dim sht As Worksheet

    ' Установим путь к текущей папке (где находится эта книга)
    папка = ThisWorkbook.Path & "\"
    
    ' Откроем или создадим output.xlsx
    On Error Resume Next
    Set wbРезультат = Workbooks("output.xlsx")
    If wbРезультат Is Nothing Then
        Set wbРезультат = Workbooks.Open(папка & "output.xlsx")
    End If
    If wbРезультат Is Nothing Then
        Set wbРезультат = Workbooks.Add
        wbРезультат.SaveAs Filename:=папка & "output.xlsx"
    End If
    On Error GoTo 0
    
    ' Используем первый лист для вывода
    Set wsРезультат = wbРезультат.Sheets(1)
    wsРезультат.Cells.Clear
    
    ' Перебираем файлы от 01 до 10
    For i = 1 To 10
        файлИмя = Format(i, "00") & "-2024.xlsx"
        
        ' Проверим наличие файла
        If Dir(папка & файлИмя) <> "" Then
            Set wbИсточник = Workbooks.Open(папка & файлИмя, ReadOnly:=True)
            Set wsИсточник = wbИсточник.Sheets(1)
            
            ' Найдём последний рядок с данными
            Dim последняяСтрока As Long
            последняяСтрока = wsИсточник.Cells(wsИсточник.Rows.Count, 1).End(xlUp).Row
            
            ' Установим автофильтр
            Set rngФильтр = wsИсточник.Range("A1").CurrentRegion
            rngФильтр.AutoFilter Field:=1, Criteria1:=Array("111*", "222*", "333*"), Operator:=xlFilterValues
            
            ' Скопируем видимые строки, кроме заголовка если не первый файл
            If wsРезультат.Cells(1, 1).Value = "" Then
                rngФильтр.SpecialCells(xlCellTypeVisible).Copy
                wsРезультат.Cells(1, 1).PasteSpecial xlPasteValues
            Else
                последнийРядок = wsРезультат.Cells(wsРезультат.Rows.Count, 1).End(xlUp).Row + 1
                ' Копируем без заголовка
                rngФильтр.Offset(1, 0).Resize(rngФильтр.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy
                wsРезультат.Cells(последнийРядок, 1).PasteSpecial xlPasteValues
            End If
            
            ' Отключим фильтр и закроем источник
            wsИсточник.AutoFilterMode = False
            wbИсточник.Close SaveChanges:=False
        End If
    Next i

    ' Сохраняем результат
    wbРезультат.Save
    MsgBox "Объединение завершено!"
End Sub