Tente Assim

Sub Diferentede ()

Dim linha as long



for linha = 2 to range("C" & rows.count).enc(xlup).row

if cells(linha,3).value <> "" _
or cells(linha,3).value <> 10 _
or cells(linha,3).value <> 9 _
or cells(linha,3).value <> 7 _
or cells(linha,3).value <> 5 _
or cells(linha,3).value <> 4 then

Seu codigo caso verdadeiro.

end if

next

end sub

O codigo acima vai retornar verdadeiro caso o valor da celula seja um dos que vc indicou.

So fiz o if

Oi Prudencio,
boa noite!

Então, não entendi sua lógica... Quando tentei fazer pelo gravador, ficou assim:

ActiveSheet.Range("V1").AutoFilter Field:=22, Criteria1:= _
"<> 27001101, 27001102, 27001103, 27001104, 27001105, 27001106, 27001201, 27001202, 27001203, 27001204, 27001205 " _
, Operator:=xlAnd

No caso esses são os critérios, a idéia é pegar TODOS valores da coluna que sejam diferentes desses específicos e diferentes de vazio... Só que observando bem, o excel considera essa lista toda como um único número...

ericksant,

Boa noite!

Anexe seu arquivo e explique melhor a sua necessidade.

Prezados,
boa noite,

Segue o anexo de um exemplo...