let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
SplitList = Table.AddColumn(Source, "RT", each List.Transform(List.Range(Text.Split([Address],"RT"),1),each Text.BeforeDelimiter(Text.Trim(_)," "))),
Join = Table.TransformColumns(SplitList, {"RT", each Text.Combine(List.Transform(_, Text.From), ","), type text}),
Split_Column = Table.SplitColumn(Join, "RT", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv),List.Max(List.Transform(SplitList[RT],each List.Count(_))) ),
Removed_Columns = Table.RemoveColumns(Split_Column,{"Address"})
in
Removed_Columns