Verificar los valores antes de filtrar

Cuando se trata de tener mucha información, lo mejor es Access... Gestiona mejor los datos y es mucho más estable y fiable que un libro de Excel con mucha información.

No obstante, te paso un ejemplo de un filtro avanzado y seguro que le encontrarás mucha utilidad...

Private Sub Worksheet_Change(ByVal Target As Range)
    '********************************************'
    Const strTablaDatos = "tblPedidos"
    Const strTablaCriterios = "tblCriterios"
    '********************************************'
    Dim rngTablaDatos As Range
    Dim rngTablaCriterios As Range
    Set rngTablaDatos = Range(strTablaDatos & "[#All]")
    Set rngTablaCriterios = Range(strTablaCriterios & "[#All]")
    'Si se modifica alguna celda dentro del rango de criterios, se ejecuta el filtro avanzado.
    If Not Intersect(Target, rngTablaCriterios) Is Nothing Then
        'El filtro avanzado necesita saber cuantos criterios utilizamos para un mismo campo;
        'Por ello, rastreamos desde la última fila a la primera del rango de criterios (fila a fila);
        'En la primera que aparezca algún criterio determinará el rango con criterios.
        fil_ini = rngTablaCriterios.Cells(1, 1).Row
        col_ini = rngTablaCriterios.Cells(1, 1).Column
        col_fin = rngTablaCriterios.Columns.Count
        For numCriterios = rngTablaCriterios.Rows.Count To fil_ini + 1 Step -1
            If WorksheetFunction.CountA(Range(Cells(numCriterios, col_ini), Cells(numCriterios, col_fin))) Then
                Exit For
            End If
        Next numCriterios
        'Aplica el filtro
        rngTablaDatos.AdvancedFilter Action:=xlFilterInPlace, _
            CriteriaRange:=Range(Cells(fil_ini, col_ini), Cells(numCriterios, col_fin)), _
            Unique:=False
    End If
End Sub

Saludos y espero que esto te resulte interesante.....