Sub u_741()
    Application.ScreenUpdating = False
    u_1 = Sheets("свод").Cells(Rows.Count, 1).End(xlUp).Row
    If u_1 > 1 Then Sheets("свод").Range("a2:e" & u_1).Clear
    For Elem = 2 To Sheets.Count
        u_2 = Sheets(Elem).Name
        u_3 = Sheets(u_2).Cells(Rows.Count, 1).End(xlUp).Row
        u_4 = Sheets("свод").Cells(Rows.Count, 1).End(xlUp).Row + 1
        If u_3 > 1 Then
            Sheets(u_2).Range("a2:e" & u_3).Copy Sheets("свод").Range("a" & u_4)
        End If
    Next Elem
    Application.ScreenUpdating = True
End Sub

let
    Source = Excel.Workbook(File.Contents( Excel.CurrentWorkbook(){[Name="Path"]}[Content]{0}[Column1] ), null, true),
    FilteredRows = Table.SelectRows(Source, each ([Name] <> "свод") and ([Kind] = "Sheet")),
    Data = Table.Combine( List.Transform( FilteredRows[Data], Table.PromoteHeaders ) )
in
    Data