Help with sorting data into columns

It could be done by Power Query as well:

to show the list of fruits

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    GroupNames = Table.Group(Source, {"Name"}, {"Fruit", each [Fruit]}),
    ExtractFruitsList = Table.TransformColumns(GroupNames,
        {"Fruit", each Text.Combine(List.Transform(_, Text.From), ","), type text})
in
    ExtractFruitsList

to show fruits in columns:

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    GroupNames = Table.Group(Source, {"Name"}, {"Fruit", each [Fruit]}),
    MaxFruits = Table.AddColumn(GroupNames, "ListMax", each List.Count([Fruit])),
    FruitsNumber = List.Max(MaxFruits[ListMax]),
    FruitsColumns = List.Transform({1..FruitsNumber}, each "Fruit " & Number.ToText(_)),
    ExtractFruitsList = Table.TransformColumns(GroupNames,
        {"Fruit", each Text.Combine(List.Transform(_, Text.From), ","), type text}),
    SplitOnFruits = Table.SplitColumn(ExtractFruitsList, "Fruit",
        Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), FruitsColumns)
in
    SplitOnFruits

and attached