Dynamic Column Merging

let
    Source = Excel.CurrentWorkbook(){[Name=Table]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Person", type text}, {"City", type text}, {"Index", type text}, {"Percentage", Int64.Type}, {"Application Date", type date}}),
    #"Pivoted Column" = Table.Pivot(#"Changed Type", List.Distinct(#"Changed Type"[Index]), "Index", "Percentage", List.Sum),
    #"Demoted Headers" = Table.DemoteHeaders(#"Pivoted Column"),
    #"Kept First Rows" = Table.FirstN(#"Demoted Headers",1),
    #"Transposed Table" = Table.Transpose(#"Kept First Rows"),
    #"Changed Type1" = Table.TransformColumnTypes(#"Transposed Table",{{"Column1", Int64.Type}}),
    #"Removed Errors" = Table.RemoveRowsWithErrors(#"Changed Type1", {"Column1"}),
    #"Transposed Table1" = Table.Transpose(#"Removed Errors"),
    #"Columns List" = Table.PromoteHeaders(#"Transposed Table1", [PromoteAllScalars=true]),
    #"Changed Type Dynamic" = Table.TransformColumnTypes(#"Pivoted Column", List.Transform(Table.ColumnNames(#"Columns List"), each {_, type text}), "en-US"),
    #"Merged Columns Dynamic" = Table.CombineColumns(#"Changed Type Dynamic", Table.ColumnNames(#"Columns List"),Combiner.CombineTextByDelimiter(",", QuoteStyle.None),"Merged"),
    #"Trim Text" = Table.AddColumn(#"Merged Columns Dynamic", "Percentages", each Text.TrimEnd([Merged], ","), type text),
    #"Removed Columns" = Table.RemoveColumns(#"Trim Text",{"Merged"})
in
    #"Removed Columns"