Erro Tipo 13: Tipos incompativeis

[PhilipeJorge 0]

Bom dia pessoal

Criei uma pequena função para conferir duas colunas e caso haja correspondencia, colar o dado numa terceira. As listas são extensas. Até uma certa parte tudo corre bem, até que numa determinada célula encontro o erro citado.
O código é esse:

O termo que eu busco sempre vem na célula seguinte à célula cujo conteudo é "processo>" e é um valor numérico de 9 digitos.

 

Porque ele percorre cerca de 40mil celulas bem e depois para do nada? ja tentei arrumar a formatação de todo jeito...

 

Dim var As Integer

var = 1

For i = 1 To 172000

If Cells(i, 6).Value = "processo>" Then

Cells(i + 1, 6).Select

Selection.Copy

Cells(var, 7).Select

ActiveSheet.Paste

Cells(i + 1, 6).Select

var = var + 1

End If

Next

[Mário Monteiro 179]

certeza que o dado é numerico?

 

mande imprimir o valor para conferir se está vindo certo ou vazio ou nulo ou qualquer outra coisa que poderia provocar o erro