код поменяла r на x. сорян правила оформления надо было изучить)). а в мейл фвйл не получили ?

let
   f=(x)=>[a=Table.PromoteHeaders( Table.Skip(Excel.Workbook(x)[Data]{0},(x)=>x[Column1]<>"Организация")),
           nms=List.Buffer(List.Select(Table.ColumnNames(a),(x)=>not Text.Contains(x,"Column"))),
           t=Table.SelectRows( Table.SelectColumns(a,nms),(x)=>x[Организация]<>"Итого" and x[Организация]<>null)][t],

   from = Folder.Files("........\Данные"), //ВАШ ПУТЬ К ПАПКЕ

   sel = Table.SelectColumns(Table.SelectRows(from,(x)=>x[Extension]=".xlsx" and not Text.Contains(x[Name],"~")),{"Content", "Name"}),
   tr=Table.TransformColumns(sel,{"Content",f}),
   nms=List.Distinct(List.Combine(List.Transform(tr[Content],Table.ColumnNames))),
   to=Table.ExpandTableColumn(tr, "Content", nms)
in
   to

простые формулы, условное форматирование

на стр.  

PQ

PQ

через сводную таблицу

через н/д. добавлена сортировка

PQ попробуйте