Private Sub Worksheet_Change(ByVal Target As Excel.Range) On Error GoTo aviso Application.EnableEvents = False If Target.Column = 1 Then Cells(Target.Row, 2) = Cells(Target.Row, 2) + Cells(Target.Row, 1) End If Application.EnableEvents = True Exit Sub aviso: If Err = 13 Or Err = 1004 Then Target = Null Application.EnableEvents = True Else MsgBox "Erro: " & Err.Number End If End Sub Com este procedimento você soma os valores digitados na coluna A com os correspodentes da coluna B Tipo: 1º digita em A1 o valor 1, em B1 ficará o valor 1; 2º digite em A1 o valor 2, em B1 ficará o valor 3, ou seja o valor da coluna A será somado ao valor existente na coluna B da mesma linha e assim sucessivamente.