let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица22"]}[Content],
    Custom1 = Table.Sort(Источник,{{"#",0},{"Дата 1",0}}),
    Custom2 = Table.AddColumn(Custom1,"Дата",each DateTime.ToText([#"Дата 1"],"dd.MM.yy")&(if [#"Дата 2"]=null then "" else DateTime.ToText([#"Дата 2"]," - dd.MM.yy"))),
    Custom3 = Table.AddColumn(Custom2,"Отчётный месяц",each DateTime.ToText([Отчётный],"MMMM yyyy")),
    Custom4 = Table.Group(Custom3,{"#"},{{" ",each Table.AddIndexColumn(_, "№ п/п", 1, 1)}})[[#" "]],
    Custom5 = Table.ExpandTableColumn(Custom4, " ", {"id", "#", "Объкт ведения", "№ п/п", "Дата", "Наименование испытываемого материала", "Наименование элемента сооружения", "Где и кем производились испытания", "Требования Проекта", "К-во", "Результаты испытаний", "Отчётный месяц"})
in
    Table.RenameColumns(Custom5,{{"К-во", "Количество испытаний"}})

let
    Источник = Excel.CurrentWorkbook(){[Name="ф7"]}[Content],    
    #"Строки с примененным фильтром" = Table.SelectRows(Источник, each Date.MonthName([Отчетный месяц])="Август"),
    Custom1 = Table.TransformColumns(#"Строки с примененным фильтром",{{"Дата испытания", each try Date.ToText(Date.From(DateTime.From(_)),"dd.MM.yy") otherwise Text.Combine(List.Transform(Text.Split(_,"-"),each Date.ToText(Date.From(_),"dd.MM.yy"))," - ")}}),
    #"Сортированные строки" = Table.Sort(Custom1,{{"№ п/п", Order.Ascending}}),
    #"Добавлен индекс" = Table.AddIndexColumn(#"Сортированные строки", "№ п/п ", 1, 1),
    #"Переименованные столбцы" = Table.RenameColumns(#"Добавлен индекс",{{"Результаты испытаний"," "},{"Столбец12", "Результаты испытаний"},{"Дата испытания","Дата"},{"№ п/п","  "},{"№ п/п ","№ п/п"}}),
    Custom2 = {"№ п/п", "Подрядчик", "Дата", "Наименование испытуемого материала", "Наименование элемента сооружения", "Где и кем производились испытания", "Требования проекта", "Оценка достоверности испытаний, выполненных Генеральным Подрядчиком", "Результаты испытаний"},
    #"Unpivoted Columns" = Table.UnpivotOtherColumns(#"Переименованные столбцы", Custom2 , "Атрибут", "Значение"),
    #"Sorted Rows" = Table.Sort(#"Unpivoted Columns",{{"№ п/п", Order.Ascending}, {"Атрибут", Order.Ascending}}),
    #"Объединенные запросы" = Table.NestedJoin(#"Sorted Rows",{"Значение"},#"Ф6 отчёт",{"id"},"Ф6 отчёт",JoinKind.LeftOuter),
    #"Grouped Rows" = Table.Group(#"Объединенные запросы", Custom2, {{"Итог", each "Соответствует испытаниям, выполненными подрядчиком "&[Подрядчик]{0}&" № п/п "& Text.Combine(List.Transform(Table.Combine([Ф6 отчёт])[#"№ п/п"],Text.From),", ")}})

in
    Table.SelectColumns(#"Grouped Rows",List.InsertRange(Custom2,2,{"Итог"}))