Right click sheet tabview codeinsert thisadjust to your columnSAVE
workbook

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 16 Then Exit Sub
Target.Offset(, 1) = _
Application.Sum(Range("p1:p" & Target.Row))
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"ryan101" wrote in message
...
hi i am having some differculties by putting some numbers in a column
going
down and i have another column nex to it and i want the numbers from the
first column so that everytime i add some numbers to that column it will
add
them up in he column next to it so its like a continues adding senquence
if a
picture is needed email me ur email and ial email it to u thanks ryan. :)