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.

"Ranjit kurian" wrote:

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

"Ranjit kurian" wrote:

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