Olá amigos

Solicito ajuda vossa pois estou trabalhando no código abaixo para somatória de duas colunas (Entrada e Saida) a entrada somou corretamente, mas a saida o valor está incorreto. Estou enviando planilha para análise.

Att.
Divino Rodrigues

Sub somarMes()
Dim vContador As Long
Dim vTotal As Currency


For vContador = 2 To Plan1.Cells(Rows.Count, "G").End(xlUp).Row
    vTotal = vTotal + Plan1.Cells(vContador, "G")
 Next vContador

[g65000].End(xlUp).Offset(1, 0).Value = vTotal
[g65000].End(xlUp).Offset(0, 0).Font.Bold = True
[g65000].End(xlUp).Offset(0, -1).Value = "TOTAL.................................................."
[g65000].End(xlUp).Offset(0, -1).Font.Bold = True

[h65000].End(xlUp).Offset(1, 0).Value = vTotal
[h65000].End(xlUp).Offset(0, 0).Font.Bold = True



End Sub