=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(СТРОЧН(ЛЕВБ(ПСТР(D$3;ПОИСК(C5;D$3);9);ПОИСК("-";ПСТР(D$3;ПОИСК(C5;D$3);9))-1));СТРОЧН(C5&0);ЛЕВБ(1/2;2));C5;)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ar As Range, arr As Variant
    On Error Resume Next
    'при любых изменениях размеров образцов "Площадь образца ="
    With Me.UsedRange.Columns("A:D")
        For Each ar In Intersect(.Offset(5), .Cells, Target).Areas
            With ar.Offset(, .Column - ar.Column).Resize(, 5)
                arr = .Value
                For i = 1 To .Rows.Count
                    arr(i, 5) = Round(arr(i, 1) * arr(i, 3) / 100, 0)
                Next
                Application.EnableEvents = 0
                .Value = arr
                Application.EnableEvents = 1
            End With
        Next
    End With
End Sub

Private Sub UserForm_Terminate()
    ufrmMain.Show
End Sub

Private Sub CommandButton_spSotrOtdels_Click()
    Me.Hide    ' скрываем главную форму
    ufSotrOtdel.Show   ' открываем форму работы со справочниками
    Me.Show    'после закрытия формы работы со справочниками показать главную форму
End Sub

    With Range("Spisok[#All]")
        .ListObject.Resize .Resize(.Rows.Count + 1)
    End With

=--ИЛИ(ВЫБОР({1;2};$H4&I$3;I$3&$H4)=$A$3:$A$15&$B$3:$B$15)

    Dim r As Range, b As Boolean
    With Range("Книга2!Spisok[#All]")
        Set r = .Resize(.Rows.Count + 1)
        With .ListObject
            b = .ShowTotals
            .ShowTotals = False
            .Resize r
            .ShowTotals = b
        End With
    End With

let
    a=(nam)  => Excel.CurrentWorkbook(){[Name=nam]}[Content],
    Filter   =  Table.AddIndexColumn(Table.SelectRows(a("Таблица1"),each [Столбец1]=a("критерий"){0}[Column1]),"",0),
    Pivot    =  Table.RemoveColumns(Table.Pivot(Filter, List.Distinct(Filter[Столбец2]), "Столбец2", "Столбец3"),{""}),
    Custom1  =  List.Transform(List.Skip(Table.ToColumns(Pivot),1),each List.Distinct(List.RemoveNulls(_))),
    Result   =  Table.FromColumns(Custom1,List.Skip(Table.ColumnNames(Pivot),1))
in
    Result

let
    Источник = Excel.Workbook(File.Contents("F:\PQ\путь.xlsx"), null, true),
    #"Карта КПЭ_Sheet" = Источник{[Item="Карта КПЭ",Kind="Sheet"]}[Data],
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Карта КПЭ_Sheet",{"Column2"}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Другие удаленные столбцы", each ([Column2] <> null and [Column2] <> " " and [Column2] <> "Дата:" and [Column2] <> "Подпись Работника")),
    Пользовательская = ((t)=>Table.Skip(t,List.PositionOf(Table.Column(t,"Column2"),"Ключевой проект:")+1))(#"Строки с примененным фильтром")
in
    Пользовательская

let
    Источник = Excel.Workbook(File.Contents("F:\PQ\путь.xlsx"), null, true),
    #"Карта КПЭ_Sheet" = Источник{[Item="Карта КПЭ",Kind="Sheet"]}[Data],
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Карта КПЭ_Sheet",{"Column2"}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Другие удаленные столбцы", each ([Column2] <> null and [Column2] <> " " and [Column2] <> "Дата:" and [Column2] <> "Подпись Работника")),
    #"Added Conditional Column" = Table.AddColumn(#"Строки с примененным фильтром", "Пользовательская", each if [Column2] = "Ключевой проект:" then 1 else null),
    #"Filled Down" = Table.FillDown(#"Added Conditional Column",{"Пользовательская"}),
    #"Filtered Rows" = Table.SelectRows(#"Filled Down", each ([Пользовательская] = 1)),
    #"Removed Top Rows" = Table.Skip(#"Filtered Rows",1),
    #"Removed Columns" = Table.RemoveColumns(#"Removed Top Rows",{"Пользовательская"})
in
#"Removed Columns"