VBA – Aplicar Filtros a Hoja Excel. Ordenar datos.

Private Sub CommandButton1_Click()
    
    'Incluir si se quiere quitar primero filtros existentes:_____________________
    If ActiveSheet.FilterMode = True Then
    ActiveSheet.ShowAllData 'Esta línea quita el filtro
    'ActiveSheet.AutoFilterMode = False 'Incluir si se quiere quitar las flechas de filtro
    End If
    
    'Ordenamos datos:____________________________________________________________
    Range("B9:D30").Sort key1:=Range("B9"), Header:=xlYes, order1:=xlAscending
           'Ordenamos una tabla que con rango desde B9 hasta D30
           'en la que la fila 9 contiene el encabezado
           'y, por ejemplo, en la columna B hay fechas que vamos a ordenar
           'de menor a mayor
    
    'filtramos:___________________________________________________________________
    Range("B9:D30").AutoFilter , field:=2, Criteria1:="Alex", VisibleDropDown:=True
                                        'Atención: Criteria1-> es un uno
                                        'VisibleDropDown->true: Muestra la flecha
    
    
End Sub