let
    f=(x)=>[a=Table.Group(Table.RemoveColumns(x,"Магазины"),"Категория",
            {"tmp1",(i)=>{{Table.FirstValue(i)}} & Table.ToList(i[[Продукт],[Вес]], (x)=>x)}),
            b=List.Zip({{Table.FirstValue(x)}} & List.Combine(a[tmp1])),
            c=Table.FromColumns(b,{"Продукт","Вес"}) & #table({},{{}})  ][c],
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    gr=Table.Group(from,"Магазины",{"tmp", f}), 
    to=Table.SplitColumn(Table.Combine(gr[tmp]),"Вес",(x)=>{null,x}, {"x","Вес"})
in
    to

let
    f=(x)=>{Text.Split(x{1},"/ ")}&{null}&List.Skip(x,2),
    Source = Excel.CurrentWorkbook(){[Name="table1"]}[Content],
    lst=Table.FromList(Table.ToList(Source,f),(x)=>x,Table.ColumnNames(Source)),
    exp=Table.ExpandListColumn(lst,"Артикул")
in
    exp

let
    f=(x)=>[a=List.Split(Text.SplitAny(x,":#(lf)"),2),
            b=List.Zip(List.Select(a,(i)=>i{1}<>" ")),
            c=Function.Invoke(Record.FromList,List.Reverse(b)) ][c],
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    tr=Table.TransformColumns(from,{"Описание",f}),
    nms=List.Distinct(List.Combine(List.Transform(tr[Описание],Record.FieldNames))),
    to=Table.Sort(Table.ExpandRecordColumn(tr,"Описание",nms),"ID")
in
    to

let
    f=(z) => [a=Record.FieldOrDefault(dict,z[Тип кабеля]),
              b=((pos)=> if pos=-1 then List.Max(a) else a{pos})
              (List.PositionOf(a,z[Сечение],Occurrence.First,(c,v)=> c>=v))][b],
    tab=(x)=>Excel.CurrentWorkbook(){[Name=x]}[Content],
    tr= Table.TransformColumns(tab("List"),{"Перечень",(x)=>List.Transform(Text.Split(x,";"),Number.From)}),
    dict = Record.FromList(tr[Перечень],tr[Условие]),
    add = Table.AddColumn(tab("Input"), "Группировка", f)
in
    add

let
    f=(x)=>((lst)=> if x{0}=x{1} then Number.IntegerDivide(Record.FieldOrDefault(dict,x{0}),2) else
                    if List.Contains(lst,null) then null else List.Min(lst)) 
                    (List.Transform(x,(i)=>Record.FieldOrDefault(dict,i))),
    from =Excel.CurrentWorkbook(){[Name="main"]}[Content],
    arr=List.Buffer({"0".."9"}),
    unp=Table.UnpivotOtherColumns(from,{},"atr","Name")[[Name]],
    gr=Table.Group(unp,"Name",{"Value",Table.RowCount}),
    dict=Record.FromTable(Table.TransformColumns(gr,{"Name",Text.From})),
    
    tr=List.TransformMany(arr, (x)=>arr,(x,y)=>{x,y,{x,y}}),
    tb=Table.FromList(tr,(x)=>x,{"Item1","item2","Count"}),
    tr1=Table.TransformColumns(tb,{"Count",f}),
    piv = Table.Pivot(tr1, List.Distinct(tr1[item2]), "item2", "Count")
in
    piv

let
    f=(x)=>((a)=>{List.Count(a), Text.Combine(a,", ")}) (List.Distinct(x[1])),
    from = Excel.CurrentWorkbook(){[Name="table1"]}[Content],
    gr=Table.Group(from,{"3","2"},{"tmp",f}),
    to=Table.SplitColumn(gr,"tmp",(x)=>x,{"Count","FIO"})
in
    to

Private Sub Workbook_Open()
Dim rng As Range
Dim cell As Range
Dim i As Integer
Dim tb As ListObject

Set tb = ThisWorkbook.Sheets("Сводная").ListObjects("Сводная")

Set rng = tb.ListColumns("ФИО").DataBodyRange

With ThisWorkbook.Sheets("Поиск").ComboBox1
    .Clear
    For Each cell In rng
        .AddItem cell.Value
    Next cell
End With

End Sub

Option Explicit
Private Comb_Arrow As Boolean
Public sootv As Boolean
Dim tb As ListObject

Private Sub ComboBox1_Change()
'-------------------------------------
'Поле со списком - это поле со списком ActiveX со следующими свойствами:
'Name = ComboBox1
'ListFillRange = blank
'MatchEntry = 2 - fmMatchEntryNone
'MatchRequired = False
'------------------------------------
Dim i As Long
Dim lReply As Long
Dim lRow As Long

Set tb = ThisWorkbook.Sheets("Сводная").ListObjects("Сводная")

    If Not Comb_Arrow Then
    With Me.ComboBox1
        .List = tb.ListColumns("ФИО").DataBodyRange.Value
        .ListRows = Application.WorksheetFunction.Min(15, .ListCount)
        .DropDown
            If Len(.Text) Then
                For i = .ListCount - 1 To 0 Step -1
                    If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i
                Next i
                .DropDown
            End If
            If .ListCount > 0 Then
                sootv = False
            Else
                .List = Array("[не найдено соответствия]")
                sootv = True
            End If
    End With
    End If
  
End Sub

Private Function Update()
Me.ComboBox1.List = tb.ListColumns("ФИО").DataBodyRange.Value
End Function

Private Sub CommandButton1_Click()
    Dim wsSource As Worksheet
    Dim lo As ListObject
    Dim rngHeaders As Range
    Dim rowFound As Range
    Dim newSheet As Worksheet
    
    On Error GoTo ErrHandler
    
    ' Установка ссылок на исходный лист и объект таблицы
    Set wsSource = ThisWorkbook.Sheets("Сводная")
    Set lo = wsSource.ListObjects("Сводная")
    
    ' Проверка введенного значения
    If Me.ComboBox1.Value = "" Then
        MsgBox "Введите ФИО в поле ввода", vbCritical
        Exit Sub
    End If
    
    ' Поиск строки с указанным ФИО
    Set rowFound = lo.DataBodyRange.Find(What:=Me.ComboBox1.Value, LookIn:=xlValues, _
                                         lookAt:=xlWhole)
    
    If Not rowFound Is Nothing Then
        ' Создаем новый лист с именем найденного ФИО
        Set newSheet = ThisWorkbook.Worksheets.Add(Before:=ThisWorkbook.Sheets(1)) 

        newSheet.Name = Me.ComboBox1.Value
       
        Set rngHeaders = lo.HeaderRowRange.EntireRow
        rngHeaders.Copy Destination:=newSheet.Range("A1")
        
        rowFound.EntireRow.Copy Destination:=newSheet.Range("A2")
                          
        Call Форматирование_Данных
        
        MsgBox "Данные по ФИО '" & Me.ComboBox1.Value & "' выбраны", vbInformation
    Else
        MsgBox "ФИО '" & Me.ComboBox1.Value & "' не найдено в таблице.", vbExclamation
    End If
    
   ' Устанавливаем формулу в K5 текущего листа
    Cells(5, 8).Value = Me.ComboBox1.Value
        
ExitHere:
    Exit Sub
ErrHandler:
    MsgBox "Ошибка при выполнении операции: " & Err.Description, vbCritical
    Resume ExitHere
   
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCod As MSForms.ReturnInteger, ByVal Shift As Integer)
    Comb_Arrow = (KeyCod = vbKeyUp) Or (KeyCod = vbKeyDown)
    If KeyCod = vbKeyReturn Then
        CommandButton1_Click ' Запуск основного макроса
    End If
End Sub

let
    f=(x)=>((a)=>[Группа задач=a[Группа задач]{0},
                  Количество = List.Sum(a[Количество упаковок]), 
                  Дата начала = List.First(a[Дата выполнения]),
                  Дата окончания=List.Last(a[Дата выполнения])])
                  (Table.Sort(Table.Buffer(x),"Дата выполнения")),
    from = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    gr=Table.Group(from,"Группа задач",{"tmp",f}),
    to=Table.FromRecords(gr[tmp])
in
    to

let
    from = Excel.CurrentWorkbook(){[Name="data"]}[Content],
    mn=List.Zip({List.Distinct(List.RemoveNulls(Record.ToList(from{0})))}),
    nms={"Месяц"}&List.Distinct(List.RemoveNulls(Record.ToList(from{1}))),
    lst=List.Buffer(Table.ToList(Table.Skip(from,2),(x)=>x)),
    tr=List.TransformMany(lst,(x)=>((a)=>List.Zip({mn,List.Transform(List.Split(List.Skip(x,4),3),(i)=>a&i)}))(List.FirstN(x,4)),(x,y)=> List.Combine(y)),
    to=Table.FromList(tr,(x)=>x,nms)
in
    to

let
    f=(x)=>Excel.CurrentWorkbook(){[Name=x]}[Content],
    lst = f("separators")[spr],
    from=f("data"),
    add=Table.AddColumn(from,"new",
        (x)=>[pos=List.PositionOf(lst,x[Column1],Occurrence.All,(c,v)=>Text.Contains(v,c)),
              a=List.Transform(pos,(i)=>lst{i}),
              aa=List.Transform(a,(i)=>Text.Length(i)),
              a1=List.Accumulate(a,{},(s,c)=>s&{Text.PositionOf(x[Column1],c)}),
              zip=List.Sort(List.Combine(List.Transform(List.Zip({a1,aa}),(x)=>{x{0},List.Sum(x)}))),
              b=Splitter.SplitTextByPositions(zip)(x[Column1]),
              c=Text.Combine(List.RemoveItems(b,{""}),",")][c] )
in
    add   

let
    from = Excel.CurrentWorkbook(){[Name="data"]}[Content],
    mn=List.Zip({List.Distinct(List.RemoveNulls(Record.ToList(from{0})))}),
    nms={"Месяц","Продукт"}&List.Distinct(List.RemoveNulls(Record.ToList(from{1}))),
    lst=List.Buffer(Table.ToList(Table.Skip(from,2),(x)=>x)),
    tr=List.TransformMany(lst,(x)=>((a)=>List.Zip({mn,List.Transform(List.Split(List.Skip(x),3),(i)=>a&i)}))(List.FirstN(x,1)),(x,y)=> List.Combine(y)),
    to=Table.FromList(tr,(x)=>x,nms)
in
    to

let
    f=(x)=>Table.FirstN(Table.Sort(Table.Buffer(x),{"Минуса",1}),1),
    from = Excel.CurrentWorkbook(){[Name="table1"]}[Content],
    gr=Table.Combine(Table.Group(from,"Артикул",{"tmp",f})[tmp])
in
    gr

let
    f=(x)=>List.Combine(Table.ToList(x,(x)=>List.Skip(x))),
    from = Excel.CurrentWorkbook(){[Name="table1"]}[Content],
    gr=Table.Group(from,"ФИО",{"tmp",f}),
    nms=((max)=>List.Combine(List.Transform({1..max},(x)=>{"начало."&Text.From(x),"конец."&Text.From(x)})))
    (List.Max(List.Transform(gr[tmp],List.Count))/2),
    spl=Table.SplitColumn(gr,"tmp",(x)=>x,nms)
in
    spl

let
    f=(x)=> Excel.CurrentWorkbook(){[Name=x]}[Content],
    from=f("table2"),
    nms1=List.Buffer(List.Skip(Table.ColumnNames(from))),
    rec=List.Transform(nms1,(x)=>Record.FromList(Table.Column(from,x),from[Предмет])),
    dict=Record.FromList(rec,nms1),

    fill=Table.FillDown(f("table1"),{"День"}),   
    lst=List.Buffer(Table.ToList(fill,(x)=>x)),
    nms=List.Buffer(List.Skip(Table.ColumnNames(fill),2)),
    tr=List.TransformMany(lst,(x)=>List.Zip({nms,List.Skip(x,2)}),(x,y)=>List.FirstN(x,1) & y),
    sel=List.Select(tr,(x)=>not List.Contains(x,null)),
    tr1=List.Transform(sel,(x)=>x & {Record.FieldOrDefault(Record.Field(dict,x{1}),x{2},0)}),
    tb=Table.FromList(tr1,(x)=>x,{"День","Класс","Предмет","Балл"}),
    gr=Table.Group(tb,{"Класс","День"},{{"tmp",(x)=>x[Предмет]},{"Балл",(x)=>List.Sum(x[Балл])}}),
    to=((n)=>Table.SplitColumn(gr,"tmp",(x)=>x,List.Transform({"1"..Text.From(n)},(i)=>"Предмет."&i))) 
             (List.Max(List.Transform(gr[tmp],List.Count)))
in
    to

let
    f=(x)=>((a)=>List.Transform(List.Buffer(Table.ToColumns(a)),(i)=>List.RemoveNulls(i){0}))
           (Table.TransformColumns(x,{"7",(y)=>Text.Combine(x[7],"#(lf)") })),
    from = Excel.Workbook(File.Contents(fParam("Path"))){[Name="исходное"]}[Data],
    skip=Table.PromoteHeaders(Table.Skip(from,(x)=>x[Column1]<>1)),
    gr=Table.Group(skip,"1",{"tmp",f},GroupKind.Local,(s,c)=>Number.From(c<>null))[[tmp]],
    to=Table.SplitColumn(gr,"tmp",(x)=>x,Table.ColumnNames(skip))
in
    to

let
    f=(x)=>[a=Splitter.SplitTextByAnyDelimiter({"[","]","""-"","})(x[Name]),
            b=List.RemoveItems(List.Transform(a,Text.Trim),{""}),
            c=((val)=>if Value.FromText(val) is number then Number.From(val) else null)(List.Last(b))][c],
    from= Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    add=Table.AddColumn(from,"new",f)
in
    add