Может кто-нибудь помочь мне найти, что не так в строке автофильтра ниже? Это дает ошибку времени выполнения «1004».
Sub filter()
Dim rng_source As Range
Set rng_source = ActiveSheet.Range("a1").CurrentRegion
rng_source.AutoFilter
End Sub