vonzuben,

Boa noite!

Baixei seu arquivo e confesso que não entendi nada! O que você quer fazer? Qual é o problema? Preenchi a coluna B mas não travou nada.

Colega vonzuben, seu código não está fazendo muito sentido pra mim.

Por dedução cheguei a esse código. Veja se atende:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Offset(0, -1).Value = "Janeiro" Then
Target.Offset(0, 1).Value = Target.Value
Else
If Target.Column = 2 And Target.Cells.Count = 1 And Not IsEmpty(Target) Then
Target.Offset(0, 1).Value = Target.Offset(-1, 1).Value + Target.Value
End If
End If
End Sub

Segue também em anexo:

Veja se atende substitua seu codigo por este

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Linha As Long
Dim Soma As Long
Dim Valor As Long

Application.EnableEvents = False

Range("C2:C13").ClearContents

Linha = 2

Do While Cells(Linha, 2).Value <> ""

Valor = Cells(Linha, 2).Value
Soma = Soma + Valor
Cells(Linha, 3).Value = Soma
Linha = Linha + 1

Loop

Application.EnableEvents = True

End Sub

Marcelo Prudencio, perfeito !

Eu estava quebrando a cabeça sem ser pelo VBA, pq ficava aparecendo #N/A, coloquei ÉRROS, mas tinha que colocar;0 e a ponta do gráfico vai na base, considerando como zero

Um cara até passou uma solução com condicional, para cada celula colocar =ÉERROS($C$8) e deixar com texto Branco.

Mas esse do VBA ficou ótimo !

Obrigado !