As an example for Cell B9, paste this in the sheet code for that sheet.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sform As String
If Target.Count 1 Then Exit Sub
If Target.Address = "$B$9" Then
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
sVal = Trim(Target.Text)
Application.Undo
If Not IsNumeric(sVal) Then _
GoTo Errhandler
sform = Target.Formula
If Left(sform, 1) < "=" Then
sform = "=" & sform & "+" & sVal
Else
sform = sform & "+" & sVal
End If
Target.Formula = sform
End If
Errhandler:
Application.EnableEvents = True
End Sub

Now if you enter values in B9, it will do what you describe.
Lightly tested, but represents the basic approach.

--
Regards,
Tom Ogilvy

"conrad" wrote in message
...
I am working on a basic worksheet. I have several numbers which I have to
add additional number to in that cell. I want the cell to reflect the
total
and the display of the cell contents to list the individual numbers added.