VBA Автофильтр выдает ошибку времени выполнения 1004

Может ли кто-нибудь помочь мне найти, что не так в строке автофильтра ниже? Это дает ошибку времени выполнения «1004».

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

Эта ошибка означает, что в активном листе нет ничего внутри или рядом с ячейкой A1 .