let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Split Column by Delimiter" = Table.SplitColumn(Source, "Name", Splitter.SplitTextByEachDelimiter({" "}, QuoteStyle.Csv, false), {"Name.1", "Name.2"}),
#"Changed Type" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"Name.1", type text}, {"Name.2", type text}}),
#"Added Custom" = Table.AddColumn(#"Changed Type", "Initial", each if Text.EndsWith([Name.1], ".") then [Name.1] else Text.Start([Name.1], 1) & "."),
#"Added Custom1" = Table.AddColumn(#"Added Custom", "Custom", each [Initial] & " " & [Name.2]),
#"Removed Columns" = Table.RemoveColumns(#"Added Custom1",{"Name.1", "Name.2", "Initial"})
in
#"Removed Columns"