maybe something like this, assuming column a and data starting in row 1

Sub add_column()
Dim lastrow As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A" & lastrow + 1).Formula = "=sum(A1:A" & lastrow & ")"
End Sub

--


Gary


"gkimmer" wrote in
message ...

I have a spreadsheet with numbers. I really need a code snippet that
will go the bottom the data and sum all values in that column.

My guess is that the code would need to loop through the cells to
detect any missing values...once it finds a missing value, sum
everything above it.

Thanks in advance for any help you can provide!


--
gkimmer
------------------------------------------------------------------------
gkimmer's Profile:
http://www.excelforum.com/member.php...o&userid=22882
View this thread: http://www.excelforum.com/showthread...hreadid=532153