let
    source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    select=Table.SelectColumns(source,{"Категория","Название"}),
    group = Table.Group(select,"Категория",{{"Количество",each Table.RowCount(_),type number},{"Названия",each Text.Combine([Название],"@"),type text}}),
    max=List.Max(group[Количество]),
    del=Table.RemoveColumns(group,"Количество"),
    split=Table.SplitColumn(del, "Названия",Splitter.SplitTextByDelimiter("@"),max),
    transp=Table.Transpose(split),
    up=Table.PromoteHeaders(transp)
in
    up