Mostrar Listbox solo celdas visibles en Excel

Necesito que mi Listbox muestre solo los datos visibles:

Son 10 columnas con datos y cuando hago filtro de fecha este muestra todas las celdas aunque estén ocultas

Dim rango2 as Range

    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
Set rango2 = Selection
ListBox4.ColumnCount = rango2.Columns.Count
ListBox4.ColumnWidths = "2,2cm" & ";" & "1,5cm" & ";" & "2,7cm" & ";" & "5,5cm" & ";" & "1,9cm" & ";" & "2,7cm" & ";" & "2,7cm" & ";" & "2,7cm" & ";" & "2,7cm" & ";" & "2,7cm"
''fuente de datos
ListBox4.RowSource = rango2.Address
ListBox4.ColumnHeads = True