Private Sub cbx_article_DropButtonClick()
    main.cbx_article.List = ThisWorkbook.Sheets("Технический").PivotTables("Категории_ST").PivotFields("Категория").DataRange.Value 'Выпадающий список статьи расходов
End Sub
Private Sub cbx_article_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Заполнение списка статьи расходов с поиском
    If KeyCode = 38 Or KeyCode = 40 Then
    Exit Sub
    Else
        Dim a
        main.cbx_article.List = ThisWorkbook.Sheets("Технический").PivotTables("Категории_ST").PivotFields("Категория").DataRange.Value
        a = Application.Transpose(main.cbx_article.List)
        If main.cbx_article.Value = "" Then
            main.cbx_article.List = ThisWorkbook.Sheets("Технический").PivotTables("Категории_ST").PivotFields("Категория").DataRange.Value
        Else
            a = Filter(a, main.cbx_article.Value, True, vbTextCompare)
            main.cbx_article.List = a
        End If
        main.cbx_article.DropDown
    End If
End Sub

Sub FillSubcategory() 'Заполнение списка подкатегории

    Set ShData = ThisWorkbook.Worksheets("Данные")
    Set ArticleListObj = ShData.ListObjects("Данные_tb")
    
    main.cbx_subcategory.Clear
    For Each ArticleListRow In ArticleListObj.ListRows
        If ArticleListRow.Range(1) = main.cbx_article.Value Then
            main.cbx_subcategory.AddItem ArticleListRow.Range(2)
        End If
    Next ArticleListRow
End Sub