Erro em tempo de execução ' 13' tipos incompativeis execel 2007

Boa Tarde amigos,

                      Fiz um download de uma planilha referente a controle de cartão de  crédito para empresa, apos alguns lançamentos, fui utilizar o macro para gerar o fluxo e apareceu a mensagem de erro em tempo de execução ' 13' tipos incompatíveis  não entendo muito nem de excel e nem de VBA gostaria de uma ajuda. abaixo segue o codigo do vba;

Sub cria_fluxo()

Dim Area As Range
Dim destino As Range
Call Limpa_fluxo
Set Area = Worksheets("Operações").Range("a2:f2000")
Set destino = Worksheets("Fluxo").Range("a2:f6000")
j = 1
i = 1
While Area.Cells(i, 1).Value <> ""
   ' copia os dados da transação original para a tabela de fluxo, as 6 primeiras colunas são iguais
   
   For k = 1 To 6
       destino.Cells(j, k).Value = Area.Cells(i, k).Value
   Next k
   ' agora vamos calcular as parcelas . o número de parcelas, a data, a taxa e o valor da parcela são os mesmos
   num_parcelas = Area.Cells(i, 7).Value
   data_opera = Area.Cells(i, 3).Value
   wtaxa = Area.Cells(i, 5).Value
   wvalor = Area.Cells(i, 4).Value / num_parcelas
   destino.Cells(j, .Value = wvalor
  destino.Cells(j, 9).Value = data_opera + Area.Cells(i, 6).Value (este campo aparece em amarelo)
   destino.Cells(j, 10).Value = wvalor * (1 - wtaxa)
   destino.Cells(j, 7).Value = 1
       For k = 2 To num_parcelas
    j = j + 1
     For Z = 1 To 6
         destino.Cells(j, Z).Value = Area.Cells(i, Z).Value
     Next Z
     destino.Cells(j, 6).Value = k * 30
     destino.Cells(j, 7).Value = k
     destino.Cells(j, .Value = wvalor
     destino.Cells(j, 9).Value = data_opera + 30 * k
     ' como estava antes
     ' destino.Cells(j, 10).Value = wvalor * (1 - wtaxa * k)
     ' como ficou depois
     destino.Cells(j, 10).Value = wvalor * (1 - wtaxa)
    Next k
   j = j + 1
   i = i + 1
Wend
'
'        For intColIndex = 0 To rs.Fields.Count - 1 ' the field names
'            TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name
'        Next

Call Marca_fluxo
Call Atualiza_resumo

End Sub

Opa amigo,
Tem como você anexar a planilha zipada?
Pois nesse pedaço de código, vemos que essa sub chama outras Sub ou Function

Call Limpa_fluxo
Call Marca_fluxo
Call Atualiza_resumo

Pode ser que o erro esteja ocorrendo nelas.

abraços

Opa com certeza segue em anexo.

Opa amigo, tudo bem?
Sua macro está correta, o problema está no formato de algumas datas na Planilha Operações, conforme detalhado abaixo:

Linhas 198 e 199 (Vendas 197 e 198) >>> Data 31/09/2013
Linha 200 (Venda 199) >>> Data 31/11/2013

Para esses dois meses não existe o dia 31, por isso o erro ocorre.

Alterando os dias para 30, a macro executa perfeitamente

Abraços

Vou alterar e ver se ocorre o mesmo.. Mais obrigado pela observação.