// Таблица1
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Исходные данные", type text}, {"Тип контрагента", type text}, {"Что хотело бы получить", type text}}),
    #"Filtered Rows" = Table.SelectRows(#"Changed Type", each ([Тип контрагента] = "Физ.лицо")),
    #"Duplicated Column" = Table.DuplicateColumn(#"Filtered Rows", "Исходные данные", "Name"),
    #"Trimmed Text" = Table.TransformColumns(#"Duplicated Column",{{"Name", Text.Trim, type text}}),
    #"Cleaned Text" = Table.TransformColumns(#"Trimmed Text",{{"Исходные данные", Text.Clean, type text}}),
    #"Split Column by Delimiter" = Table.SplitColumn(#"Cleaned Text", "Name", Splitter.SplitTextByEachDelimiter({" "}, QuoteStyle.Csv, false), {"Name.1", "Name.2"}),
    #"Added Custom" = Table.AddColumn(#"Split Column by Delimiter", "PowerSplit", each List.RemoveMatchingItems(Text.SplitAny([Name.2]," ."),{" ","",null})),
    #"Added Custom2" = Table.AddColumn(#"Added Custom", "Name.3", each let count = List.Count([PowerSplit]) in if count > 2 then [#"Name.2"] else List.Accumulate([PowerSplit], "",(s,c)=>let len = Text.Length(c), end = Text.End(c,1)
in s & 
(if count > 2 then c & " " else
    if len = 2
        then if end = "." 
            then c else Text.Combine(Text.ToList(c),".") & "."
        else if len = 1 then c & "." else c & " "
    ))),
    #"Merged Columns" = Table.CombineColumns(#"Added Custom2",{"Name.1", "Name.3"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None),"Name"),
    #"Removed Columns" = Table.RemoveColumns(#"Merged Columns",{"Name.2", "PowerSplit"}),
    #"Trimmed Text1" = Table.TransformColumns(#"Removed Columns",{{"Name", Text.Trim, type text}})
in
    #"Trimmed Text1"