ColumnsSorted = Table.AddColumn(#"Renamed Columns","ReorderedTable", each
Table.ReorderColumns([Import.Data],
let
ColumnNames = Table.ColumnNames(#"Renamed Columns"[Import.Data]{0}),
ColumnNumbers = List.Transform(ColumnNames, each Number.From(Text.Replace(_, "Column",""))),
#"Sorted Items" = List.Sort(ColumnNumbers,Order.Ascending),
ColumnNamesSorted = List.Transform(#"Sorted Items", each "Column"&Text.From(_))
in
ColumnNamesSorted))