let
    Source = Table.Combine({NewContacts_XLSX, NewContacts_CSV}),
    #"Removed Other Columns1" = Table.SelectColumns(Source,{"Last Name", "First Name", "Email Address", "State/Province", "Phone", "Company Name", "Address", "City", "Postal Code", "Mobile", "Company Phone"}),
    #"Changed Type" = Table.TransformColumnTypes(#"Removed Other Columns1",{{"Last Name", type text}, {"First Name", type text}, {"Email Address", type text}, {"State/Province", type text}, {"Phone", type text}, {"Company Name", type text}, {"Address", type text}, {"City", type text}, {"Postal Code", type text}, {"Mobile", type text}, {"Company Phone", type text}}),
    #"Replaced Value" = Table.ReplaceValue(#"Changed Type","-","",Replacer.ReplaceText,{"Phone", "Mobile", "Company Phone"}),
    #"Replaced Value1" = Table.ReplaceValue(#"Replaced Value","(","",Replacer.ReplaceText,{"Phone", "Mobile", "Company Phone"}),
    #"Replaced Value2" = Table.ReplaceValue(#"Replaced Value1",")","",Replacer.ReplaceText,{"Phone", "Mobile", "Company Phone"}),
    #"Replaced Value3" = Table.ReplaceValue(#"Replaced Value2","+","",Replacer.ReplaceText,{"Phone", "Mobile", "Company Phone"}),
    #"Replaced Value4" = Table.ReplaceValue(#"Replaced Value3",".","",Replacer.ReplaceText,{"Phone", "Mobile", "Company Phone"}),
    #"Replaced Value5" = Table.ReplaceValue(#"Replaced Value4"," ","",Replacer.ReplaceText,{"Phone", "Mobile", "Company Phone"}),
    #"Extracted Last Characters" = Table.TransformColumns(#"Replaced Value5", {{"Phone", each Text.End(_, 10), type text}, {"Mobile", each Text.End(_, 10), type text}, {"Company Phone", each Text.End(_, 10), type text}}),
    #"Removed Blank Rows" = Table.SelectRows(#"Extracted Last Characters", each not List.IsEmpty(List.RemoveMatchingItems(Record.FieldValues(_), {"", null})))
in
    #"Removed Blank Rows"