The following inserts a formula in the last empty row of a column and sums
all values.
You can adpat this for the column, range etc as required

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


Cheers
Nigel


"poppy " wrote in message
...
Hi

I made a mess of my last post, but here goes.

I would like to be able to find the last empty row in a worksheet skip
one row and then sum up the totals of each column in this row.

I hope this is clearer than my last post
Thanx for your help

Kind Regards


---
Message posted from http://www.ExcelForum.com/