let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
Custom1 = Table.TransformColumns(Source,
{{"Original Phone Number", each Text.Replace(Text.Replace(_, "(", ""), ")", ""),"-",""}}),
#"Added Custom" = Table.AddColumn(Custom1, "Custom", each List.Accumulate(
List.Numbers(0, Table.RowCount(Corrections)),
[Original Phone Number],
(A,B) =>
Text.Replace(A,Corrections[Find]{B}, Corrections[Replace]{B}))),
#"Replaced Value" = Table.ReplaceValue(#"Added Custom"," ","",Replacer.ReplaceText,{"Custom"}),
#"Split Column by Character Transition" = Table.SplitColumn(#"Replaced Value", "Custom", Splitter.SplitTextByCharacterTransition({"0".."9"}, (c) => not List.Contains({"0".."9"}, c)), {"Custom.1", "Custom.2", "Custom.3"}),
#"Removed Other Columns" = Table.SelectColumns(#"Split Column by Character Transition",{"Custom.1"}),
Trim= Test.End("Custom.1,10)
in
Trim