Want to Show Filtered data in Listbox with Tickbox Option to Filter data

HI,
Need help here please

I am using userform's textbox to filter my Range("A9:Y1000")

i want to show my filtered data only column(f) in listbox1 with Multiselect

for example
i type in textbox2 = "aam" then textbox will filter the field 2 and listbox1 will show filtered column(f)

Fount this one to show only visible cells only in listbox

Private Sub CommandButton9_Click()
Dim oneCell As Range, LR As Long
LR = Sheets("OL BC").Range("F" & Rows.Count).End(xlUp).Row
With ListBox1
    For Each oneCell In Sheets("OL BC").Range("F10:F" & LR).SpecialCells(xlCellTypeVisible)
        .AddItem CStr(oneCell.Value)
    Next 'oneCell
End With
End Sub

now i want only show only unique value in list box and want to apply multiselect items from listbox,
and using below to filter selected data from listbox

Private Sub ListBox1_Click()
    Dim li As Long
    Dim lN As Long
    Dim asSelect() As String
    
    With Me.ListBox1
        For li = 1 To .ListCount
            If .Selected(li - 1) = True Then
                lN = lN + 1
                ReDim Preserve asSelect(lN)
                asSelect(lN) = .List(li - 1)
            End If
        Next li
    End With
    
    If lN > 0 Then
        ActiveSheet.Range("A9:Y1000").AutoFilter Field:=6, Criteria1:=asSelect(), Operator:=xlFilterValues
    End If
End Sub

check sample please

this code is showing visible cells in listbox1

Dim oneCell As Range, LR As Long
LR = Sheets("OL BC").Range("F" & Rows.Count).End(xlUp).Row
With ListBox1
    For Each oneCell In Sheets("OL BC").Range("F10:F" & LR).SpecialCells(xlCellTypeVisible)
        .AddItem CStr(oneCell.Value)
    Next 'oneCell
End With

and this code showing unique values in listbox1

Dim myCollection As New Collection
Dim oneCell As Range
Dim oneString As Variant
 
For Each oneCell In Range(Range("F8"), Range("F65536").End(xlUp))
    On Error Resume Next
    For Each oneString In Split(CStr(oneCell.Value), ",")
        myCollection.Add Item:=oneString, Key:=oneString
    Next oneString
    On Error GoTo 0
Next oneCell
 
With RATE2.ListBox1
    For Each oneString In myCollection
        .AddItem oneString
    Next oneString
End With

i need a mix version
visible cells + unique

in this sample listbox1 is populating filtered and unique value with command button click

this code is filter listbox item (only one item ) when i click listbox

Private Sub ListBox1_Click()
    Dim li As Long
    Dim lN As Long
    Dim asSelect() As String
    
    With Me.ListBox1
        For li = 1 To .ListCount
            If .Selected(li - 1) = True Then
                lN = lN + 1
                ReDim Preserve asSelect(lN)
                asSelect(lN) = .List(li - 1)
            End If
        Next li
    End With
    
    If lN > 0 Then
        ActiveSheet.Range("A9:Y1000").AutoFilter Field:=6, Criteria1:=asSelect(), Operator:=xlFilterValues
    End If
End Sub

it i change listbox1 property
12.JPG

sample workbook
Multiselect = 1 - fmMultiselectMulti
then filtering is not working