Мой вам совет по поводу удаления фильтров
Если на листе уже есть фильтр, то:
Sub AutoFilter_Remove()
Cells.AutoFilter
End Sub
Или вы можете написать это следующим образом:
Sub AutoFilter_Remove()
If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
End Sub
Надеюсь, это поможет!