Sub adv_PEOPLE(opnSH)
        
            opnSH.Cells.ClearOutline
            
            opnSH.Rows("1:6").Delete
            opnSH.Columns(1).Delete
            
            ix = 1
            NullRowCount = 0
            While NullRowCount < 7
                nnlc = 0
                For iCol = 1 To 15
                    If opnSH.Cells(ix, iCol) <> "" Then nnlc = nnlc + 1
                Next
                If nnlc = 0 Then
                    opnSH.Rows(spltnRows(ix, ix)).Delete
                    NullRowCount = NullRowCount + 1
                Else
                    NullRowCount = 0
                    ix = ix + 1
                End If
            Wend
            
            opnSH.Rows("1:1").Insert Shift:=xlDown
            rgvset opnSH, "A", 1, "ФИО"
            rgvset opnSH, "B", 1, "Должность"
            rgvset opnSH, "C", 1, "Департамент / Дирекция"
            rgvset opnSH, "D", 1, "Подразделение"
            rgvset opnSH, "E", 1, "Струртурная единица"
            rgvset opnSH, "F", 1, "Вид трудоустройства"
            
            opnSH.Columns("F:F").Insert Shift:=xlToRight
            opnSH.Columns("F:F").Insert Shift:=xlToRight
            ixend = GetLastRow(opnSH)
            For ix = 1 To ixend
                rgvset opnSH, "F", ix, rgv(opnSH, "B", ix)
                rgvset opnSH, "G", ix, rgv(opnSH, "A", ix)
            Next
            opnSH.Columns("A:A").Delete
            opnSH.Columns("A:A").Delete
        
    End Sub

let
    FactTable = Fact,
    CategoryTable=Table.Buffer(Category),
 
    SegmentColumn = 
        Table.AddColumn(
            FactTable, "Category",             
            (OuterVariable)=>            
                Table.SelectRows( 
                    CategoryTable, (InnerVariable) => 
                        Text.Contains( OuterVariable[Product] , InnerVariable[BrandName] )
                )
            )
in
    SegmentColumn