sum the column

[Ranjit kurian]

I have a column called as TOTAL and this column contain numbers, and the
number keep increasing or decreasing , so i need a macro so that it always
sum the total column(last row)

TOTAL
1
2
3
6 - sum

 

[Ranjit kurian]

As the total column move day by day, for example today if its in Column P
tomarrow it may move to column E or A etc...

so my macro code should sum the column based on active cell

 

[Bob Phillips]

Put the total in row 2, and use a formula like =SUM(D365536)

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[StumpedAgain]

If you click on the correct column header "TOTAL", the following should work:

Option Explicit
Sub Sum_Column()

Dim rcount As Integer
Dim sumstart, sumend, summed As Range

With ActiveCell
rcount = Range(.Offset(1, 0), .End(xlDown)).Rows.Count
End With

Set sumstart = ActiveCell.Offset(1, 0)
Set sumend = ActiveCell.Offset(rcount, 0)
sumend.Offset(1, 0).Name = "Summed"
Range("Summed").Value = "=sum(" & Range(sumstart, sumend).Address & ")"

End Sub

You can shortcut this for easy access.