Dim cRows As Long

cRows = Cells(Rows.Count,"A").End(xlUp).Row
Cells(cRows+1,"A").FormulaR1C1 = "=SUM(R1C1:R[-1]C1)"

This is for column A, change the "A" and C1 if a different column required.

Why did you tag to an existing thread, you are likley to get missed this
way?

--

HTH

Bob Phillips

wrote in message ...
Hello List,
I need to open a sheet and move down the first column till i find a
cell with no value. Then make that cell sum the column above it.
i tried to do this with a macro from Excel so i could see how the code
was created and failed badly.
Any ideas?

Bob