Ola Galera

Vêem se podem me ajudar:

Através de VBA, preciso selecionar um valor que seja maior que determinado valor em uma célula, exemplo:

ActiveSheet.Range("$D$2:$P$3505").AutoFilter Field:=6, Criteria1:= Range("M1"), _
Operator:=xlAnd

Ao invés de igual gostaria que ele selecionasse tudo que fosse maior que aquela célula, mas ao trocar o sinal de = por >, da erro, alguém pode me ajudar:?