result = Table.AddColumn(
       names,
       "НАЗНАЧЕНИЕ",
       (x) => try Table.Skip(
           replacements,
           (w) => not Text.Contains(
               x[Назначение],
               w[old], Comparer.OrdinalIgnoreCase
           )
       ){0}[new] otherwise x[Назначение])      
      

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Номер", type text}, {"Цена ед. изм.", type number}, {"Кол-во", Int64.Type}}),
    #"Сгруппированные строки" = Table.Group(#"Измененный тип", {"Наименование", "Цена ед. изм."}, 
    {{"Количество", each List.Sum([#"Кол-во"]), type nullable number}, {"проб", each Text.Combine(List.Distinct([Номер]),", ")}}),
    #"Переупорядоченные столбцы" = Table.ReorderColumns(#"Сгруппированные строки",{"проб", "Наименование", "Цена ед. изм.", "Количество"})
in
    #"Переупорядоченные столбцы"