This example uses only two cells: A1 & A2

Insert the following code in the wroksheet code area:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range("A2").Value = Range("A2").Value + Range("A1").Value
Application.EnableEvents = True
End Sub


Whenever a value is entered in A1, its added into A2
--
Gary''s Student - gsnu200745


"wow" wrote:

I want to use less columns as possible. I want others to be able to change
one column while previous values are added to increase a3