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

    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

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

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

Private Sub UserForm_Terminate()
    ufrmMain.Show
End Sub

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

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

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

5.1358359214422811520745838439255742289090748041335×10[sup]1625005[/sup]