displaying a dynamic autofilter list in a listbox

Hi,

I have a table (Table1) that i would like to filter and display the filtered list in a list box, at the moment it will only display the full table rather than the filtered list, any ideas who to get it to dynamic show the filtered list?

Option Explicit


Public Sub DisplayRange(rng As Range)
    If 16 < rng.Columns.Count Then Set rng = rng.Resize(, 16)
    
    With Me.ListBox1
        .ColumnCount = rng.Columns.Count
        .List = rng.Value
    End With
    Me.Show
End Sub

Private Sub CommandButton1_Click()
    Unload UserForm1
End Sub


Private Sub ListBox1_Click()

End Sub

and the commandbutton

Option Explicit

    
Sub showRange()

  UserForm1.DisplayRange Sheet1.Range("Table1")
    

End Sub

many thanks

reg