Bom dia Pessoal..

Tenho uma macro que faz um filtro em determinadas colunas e deleta as informações que não preciso, porem acho que isto está deixando muito lenta....

exemplo na coluna " d " tenho varias informações e a macro faz o seguinte:
Sub FILTRO_DENOMINAÇÃO()

Rows("2:2").Select
Selection.AutoFilter

Selection.AutoFilter Field:=4, Criteria1:="=*ACERT*", Operator:=xlAnd
Rows("3:6000").Select
Selection.Delete Shift:=xlUp

Selection.AutoFilter Field:=4, Criteria1:="=*AVARIA*", Operator:=xlAnd, _
Criteria2:="<>b*"

Gostaria de saber se ha possibilidade de deletar estas linhas coforme algumas condições ou Critério sem utilizar o filtro.

Obrigado