let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
 #"Переименованные столбцы" = Table.RenameColumns(Источник,{{"Столбец1", "Производитель"}}),
 #"Строки с примененным фильтром" = Table.SelectRows(#"Переименованные столбцы", each ([Производитель] <> null)),
 #"Дублированный столбец" = Table.DuplicateColumn(#"Строки с примененным фильтром", "Производитель", "Код"),
 Преобразуем = Table.TransformColumns(#"Дублированный столбец",
 {{"Код",each if List.ContainsAny(Text.ToList(_),{"0".."9"}) then _ else ""},
 {"Производитель", each Text.Remove(_,{"0".."9"})}})
 in
 Преобразуем

toCellData = Table.ReplaceValue(expanded, null, null, (a, b, c) => if a <> null then a[#"Element:Text"]{0} else null, heads)

 #"Добавлен пользовательский объект" = Table.Group(#"Заменим пустоты на пробел", {"Priority", "Assigned to ", "Status"}, {{"Количество", each Table.AddIndexColumn(_,"i",1), type table}}),
    #"Развернутый элемент Количество" = Table.ExpandTableColumn(#"Добавлен пользовательский объект", "Количество", {"Title", "i"}, {"Title", "i"}),
    #"Добавлен пользовательский объект1" = Table.AddColumn(#"Развернутый элемент Количество", "Задание", each Text.From([i])&" "&[Title]),
    #"Группа по заданиям" = Table.Group(#"Добавлен пользовательский объект1", {"Priority", "Assigned to ", "Status"}, {{"Количество", each Text.Combine(_[Задание],"#(lf)"), type text}}),

try List.Max(
Table.FromRecords(
List.Generate(
()=>[id=1,dEx=[Дата параметра]],
each List.Contains(Праздники[С1],[dEx])=true,
each [id=[id]+1,dEx=Date.AddDays([dEx],1)])
)[dEx]) otherwise [Дата параметра],

#"Новая дата"= List.Max(Table.FromRecords(
List.Generate(
()=>[id=1,dEx=Date.StartOfMonth(Date.From(Value.FromText(#"Параметры"{0}[Значение])))],
each Table.RowCount(Table.SelectRows(Источник, each Text.Contains([Name], (Date.ToText([dEx], "yyyy_MM_dd")))))=0,
each [id=[id]+1,dEx=Date.AddDays([dEx],1)])
)[dEx])

#"Добавлен пользовательский объект" = Table.AddColumn(#"ClearTable", "Дата выхода", each List.Max(Table.FromRows(List.Generate(()=> [id=0, dExit=_[Дата входа]], List.Contains(#"Выходные дни",[dExit])=false, [id=[id]+1,dExit=Date.AddDays(_[Дата входа], [id])]), {"id", "dExit"})[dExit]))