VBA AutoFilter dá erro de tempo de execução 1004

Question

Alguém poderia me ajudar a descobrir o que há de errado na linha do filtro automático abaixo? Dá erro de tempo de execução '1004'.

Sub filter()
    Dim rng_source As Range
    Set rng_source = ActiveSheet.Range("a1").CurrentRegion
    rng_source.AutoFilter
End Sub

Answer 1

Este erro significa que não há nada dentro ou "próximo" da célulaA1na planilha ativa.