let
Source = List.RemoveNulls(List.Combine(Table.ToColumns(Excel.CurrentWorkbook(){[Name="Table1"]}[Content]))),
ToTable = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
GroupKey = Table.AddColumn(ToTable, "Custom", each Text.Middle([Column1],0,5)),
Group = Table.Group(GroupKey, {"Custom"}, {{"Count", each _, type table}}),
GetList = Table.AddColumn(Group, "Custom.1", each Table.Column([Count],"Column1")),
Extract = Table.TransformColumns(GetList, {"Custom.1", each Text.Combine(List.Transform(_, Text.From), ","), type text}),
Split = Table.SplitColumn(Extract, "Custom.1", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), {"Custom.1.1", "Custom.1.2", "Custom.1.3", "Custom.1.4", "Custom.1.5", "Custom.1.6", "Custom.1.7"}),
RC = Table.RemoveColumns(Split,{"Custom", "Count"})
in
RC