let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    position = Table.AddColumn(Source, "position", each List.PositionOfAny(List.Skip(Text.ToList([Наименование])),List.Transform({0..9},Text.From)&{"А".."Я","A".."Z"})),
    part1 = Table.AddColumn(position, "part1", each if [position]<0 then [Наименование] else Text.Start([Наименование], [position])),
    part2 = Table.AddColumn(part1, "part2", each if [position]<0 then null else Text.Trim(Text.Middle([Наименование], [position]))),
    final = Table.SelectColumns(part2,{"Наименование", "part1", "part2"})
in
    final