Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$5" Then
Application.EnableEvents = False
Range("E5").Value = Range("E5").Value + Target.Value
j = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Cells(j, 1) = Target.Value
Application.EnableEvents = True
End If

End Sub

If you had lots of entries, you should also dim j as long
--
Gary''s Student


" wrote:

I have this VBA macro, that I think Dave Peterson wrote.....

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$5" Then
Application.EnableEvents = False
Range("E5").Value = Range("E5").Value + Target.Value
Application.EnableEvents = True
End If

End Sub

If I enter a number in B5 then the running total is in E5

I would like to adapt the Sub so that each number entered in B5 is
listed, starting in A1(or other column), like the tape on an adding
machine is visable.

Any suggestions?