Este fórum está sendo desativado

[ramonmattos]

Bom dia.
Recebi uma planilha de um cliente ao qual tenho que filtrar a coluna J a partir da linha 18, tudo que é maior que 0.
Tentei com :
Worksheets("GERAL").Range("J18").AutoFilter Field:=1, Criteria1:=">0"
O problema é que a planilha está bloqueada e não consegui executar o filtro.
Alguém poderia me ajudar? Pensei também algo com o Sendkeys, porem não sei filtrar utilizando somente o teclado
Desde já agradeço o apoio de todos.

[ramonmattos]

Consegui fazer o filtro via teclado, porem não estou conseguindo fazer via sendkeys.

Alguem poderia identificar o porque?

Sheets("GERAL").Select
Application.Calculate
Range("J18").Activate
Application.SendKeys "%{DOWN}"
Application.SendKeys "F"
Application.SendKeys "D"
Application.SendKeys "~"