Populate a Listbox with Unique data of filtered range

hi,
i am using below code to populate data with unique data of range f10:f1000

Private Sub UserForm_Initialize()

    Dim arrUnqItems As Variant

    With Sheets("SHEET1")
        .Range("F10", .Cells(.Rows.Count, "F").End(xlUp)).AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True
        arrUnqItems = Application.Transpose(.Range(.Cells(2, .Columns.Count), .Cells(.Rows.Count, .Columns.Count).End(xlUp)).Value)
        .Columns(.Columns.Count).Clear
    End With

    Me.ListBox1.Clear
    Me.ListBox1.List = arrUnqItems

    Erase arrUnqItems

End Sub

i want to change above code to apply at filtered data

i want to show unique values of filtered data only

thank you