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

let
    from = Excel.Workbook(File.Contents(fParam("Path"))){[Name="Sheet1"]}[Data],
    val = List.Skip(Record.ToList(from{0})),
    lst=List.Buffer(Table.ToList(Table.Skip(from,2),(x)=>x)),
    tr=List.TransformMany(lst,(x)=>List.Zip({val, List.Skip(x)}),(x,y)=>List.FirstN(x,1) & y),
    to=Table.FromList(tr,(x)=>x,{"No.","QTY","Value"})
in
    to

let
    f=(x)=>Text.Combine(List.Transform(x,Text.From)," "),
    from = Excel.Workbook(File.Contents(fParam("Path"))){[Name="наборка"]}[Data],
    sel= Table.SelectRows(from,(x)=>not List.Contains({null,0},x[Column2])),
    fio=List.Buffer(Table.FirstN(sel,2)[Column2]),
    dog=Table.PromoteHeaders(Table.SelectRows(sel,(x)=>x[Column3]<>null))[[Текст],[Код работ],[Договор]],
    txt=Text.Combine({"XP 14"} & Table.ToList(dog,f) & fio, " ")
in
    txt

let
    from = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    nms=List.Buffer(Table.ColumnNames(from)),
    typ=Table.TransformColumnTypes(from,{{nms{0},type date},{nms{1},type date}}),
    lst=List.Buffer(Table.ToList(typ,(x)=>x)),
    gen=List.Transform(lst,(w)=>List.Generate(
        ()=>[n=1,dt={w{0},w{0}+#duration(1,0,0,0),1 } ],
        (x)=>x[n]<= Duration.Days(w{1}-w{0}),
        (x)=>[n=x[n]+1,dt={x[dt]{1},x[dt]{1}+#duration(1,0,0,0),1 } ],
        (x)=>x[dt] )),
    tbl=Table.FromList(List.Combine(gen),(x)=>x,nms),
    gr=Table.Sort(Table.Buffer(Table.Group(tbl,List.FirstN(nms,2),{"Количество",(x)=>List.Sum(Table.Column(x,nms{2}))})),nms{0})
in
    gr

let
    f=(x)=>((a)=>List.Select(a,(x)=>Value.FromText(x) is date or List.AllTrue({Text.Length(x)=4,Text.StartsWith(x,"20")})){0}?)
            (List.Buffer(Text.SplitAny(x[Оглавление 2]," ,"))),
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    add = Table.AddColumn(from,"Дата",f)
in
    add

let
    f=(x)=>((a)=>Text.Combine(List.Select(a,
            (x)=>Value.FromText(x) is date or List.AllTrue({Text.Length(x)=4,Text.StartsWith(x,"20")})),", "))
            (List.Buffer(Text.SplitAny(x[Оглавление 2]," ,-"))),
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    add = Table.AddColumn(from,"Дата",f)
in
    add

let
    f=(x)=>Excel.CurrentWorkbook(){[Name=x]}[Content],
    g=(x)=>Table.SelectRows(dict,(y)=>Text.Contains(x[Материалы],y[материалы],Comparer.OrdinalIgnoreCase))[группа]{0}?,
    dict=f("справочник"),
    add=Table.AddColumn(f("Table1"),"группа",g)[группа]
in
    add