Private Sub CommandButton1_Click()
Dim w1, w3 As Worksheet
Dim vItem, avArr, li As Long
Set w1 = Workbooks("1.xlsm").Worksheets(1)
Set w3 = Workbooks("1.xlsm").Worksheets(2)
iLastRow = w1.Cells(Rows.Count, 1).End(xlUp).Row
If w1.FilterMode Then w1.ShowAllData
Set r = Range(w1.Cells(3, 9), w1.Cells(iLastRow, 9))
     ReDim avArr(1 To iLastRow, 1 To 1)
     With New Collection
        On Error Resume Next
         For Each vItem In r
         If vItem <> "" Then
             .Add vItem, CStr(vItem)
             If Err = 0 Then
                 li = li + 1: avArr(li, 1) = vItem
             Else: Err.Clear
             End If
             End If
         Next
     End With
' If li Then w3.Cells(1, 1).Resize(li).Value = avArr
If li Then w1.Cells(2, 1).AutoFilter Field:=9, Criteria1:=avArr(), Operator:=xlFilterValues
End Sub