Lägg denna i din vba editor, på det sheet(i projekt vyn) som motsvarar det sheet där du vill ha funktionen.

Private Sub worksheet_change(ByVal target As Range)


Const CELL_ADDRESS = "$A$1:$A$4000"




'Testar om celländringen är gjord i angivet intervall
If Not Application.Intersect(target, Range(CELL_ADDRESS)) Is Nothing Then

'Ser till att endast siffror tillåts som input i range a1:a4000
If Not IsNumeric(target.Value) Then
MsgBox "Only integers allowed"
Exit Sub
End If

Summerar vad som står i cellen som skrevs i med cellen till höger om den. Redovisar resultated i cell till höger.
ActiveSheet.Range(target.Offset(0, 1).Address) = target.Value + target.Offset(0, 1).Value
End If

End Sub

Mvh Christian