Private Sub Combo_AUTO_Change()
    Dim x As String, xSubArray()
    Dim xFlt As String, rSource As Range
    
    xFlt = Trim(combo_auto.Value)
    Set rSource = Range("B1:C21")
    Call Get_Filtered_Array(xFlt, rSource, xSubArray)
    
    Combo_znacka.List = xSubArray
    Combo_znacka.Value = Null
    Combo_model.Value = Null
    
End Sub

Private Sub Combo_znacka_Change()
    Dim x As String, xSubArray()
    Dim xFlt As String, rSource As Range
    
    xFlt = Trim(Combo_znacka.Value)
    Set rSource = Range("D1:E91")
    Call Get_Filtered_Array(xFlt, rSource, xSubArray)
    
    Combo_model.List = xSubArray
    Combo_model.Value = Null
End Sub