Mostrar datos filtrados de tabla en combobox

Tengo una tabla general en una hoja y en otra hoja tengo otra tabla con los mismos datos solo que esta tiene filtro, lo que necesito es que en un combobox me muestre las celdas activas o filtradas en la tabla de la hoja 2, ya tengo un código el cual me actualiza el filtro en la hoja dos pero no logro que me cargue los datos filtrados al combobox ya que este lo utilizo para mostrar datos en unos label de la tabla.

Asi cargo los datos en los label de acuerdo a lo que aya en el combobox

Private Sub ComboBox4_Change()
'Por.Dante Amor
    'Mostrar en los textbox los datos según el combo
    '
    'limpia los textbox
    TextBox13 = ""
    '
    'obtiene el número de fila
    f = ComboBox4.ListIndex + 2
    '
    'si no elegiste un dato del combo se sale
    '
    'si elegiste un dato del combo te muestra los valores en los textbox
    Label_COD_C.Caption = Cells(f, "A")
    Label_CC_C.Caption = Cells(f, "C")
End Sub

los datos al combobox los cargo por RowSource con nombre de tabla.

En un modulo cree la función y la puse a una casilla de verificación que me hace visible una pagina del multipagina que tengo.

Sub filtrado()
Sheets(2).Select
Dim filtro As AutoFilter
Set filtro = Worksheets("datos (2)").AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=filtro.Filters(1).Criteria1
End Sub

Agradezco la ayuda o si hay un método mas profesional.