Hi chrismania

This example will work for Column C

Sub test()
With Range("C" & Rows.Count).End(xlUp).Offset(2, 0)
.Formula = "=SUM(C1:C" & .Row - 3 & ")"
End With
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"chrismania" wrote in message ...
Hi Guys,
hopefully somebody can help.

I have columns of data, and I want to sum up at the bottom of each
column the total for each column. I know how to do this, but the range
of the columns can change each time because the number rows can be
different for each month.

So if i find the last row of each column, how do i then select from
there up to calculate the sum??

What I'm trying to do is, if a column contains all zero's or a row
contains a whole row of zero's then delete the entire row/column. Is
there an easier way of doing this??

Thanks Christoph



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/