Erro Tempo de Execução '13'

[Rafael Licursi]

Olá pessoal,

Estou automatizando uma série de planilhas do Excel e em uma delas está ocorrendo este erro: Erro em Tempo de Execução: '13' - Tipos Incompatíveis.

A linha selecionada ao depurar o erro está em vermelho.

Alguém tem idéia do que está gerando este erro?

O código segue abaixo:

Sub atrasos_gerencia()

ApStMi = 0

ManStMi = 0

ManStCm = 0

ManStIp = 0

outro = 0

Sheets("CCATP-ST").Select

LinhaFinalCC = Cells(65536, 1).End(xlUp).Row

Range("A2:C" & LinhaFinalCC).Name = "gerencias"

Sheets("ATP-ST").Select

LinhaFinal = Cells(65536, 1).End(xlUp).Row

Range("I1").EntireColumn.Insert

Range("I2").Value = "Ger"

Range("I3:I" & LinhaFinal).FormulaR1C1 = "=VLOOKUP(RC7,gerencias,3)"

Range("I3:I" & LinhaFinal).Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

For i = 3 To LinhaFinal

Select Case Cells(i, 9).Value

Case "Manutenção ST/MI"

ApStMi = ApStMi + 1

Case "Manutenção ST/MI"

ManStMi = ManStMi + 1

Case "Manutencao ATP/ST/CM"

ManStCm = ManStCm + 1

Case "Manut ATP-ST/IP"

ManStIp = ManStIp + 1

Case Else

outro = outro + 1

End Select

Next i

Range("I1").EntireColumn.Delete

Sheets("Plan1").Select

Cells(3, 2) = ApStMi

Cells(4, 2) = MantMi

Cells(5, 2) = ManStCm

Cells(6, 2) = ManStIp

End Sub

Obrigado!!!!

[kuroi]

o valor q vai tar na celula Cells(i, 9).Value é do tipo texto ou é numerico??