O código que vc pediu é esse:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Target.Address = "$A$1" Then
    Range("A2").Value = Range("A2").Value + Range("A1").Value
    Range("A1").ClearContents
End If

Application.EnableEvents = True

End Sub

Ele deve ser colocado na planilha (não coloque em um módulo).

Se não for o que vc queria, ou não souber como aplicar, poste a tua planilha modelo compactada, e dê mais detalhes.

Ah, e lembre de clicar na mãozinha como agradecimento.

Abs