Код такой, но он не работает

Cells.Select
Selection.AutoFilter

Active.Sheet("A1:A60000").AutoFilter Field:=2 Criteria1:="=1", _
       Operator:=xlAnd

Active.Sheet("A1:A60000").AutoFilter Field:=13 Criteria1:="<26", _
       Operator:=xlAnd

Active.Sheet("A1:A60000").AutoFilter Field:=13 Criteria1:=">60", _


Rows("2:60000").Select
Selection.Delete

Что не так?

В коде могут быть опечатки (набирал вручную).

Помогите пожалуйста.