Met
This macro should do what you want. HTH Otto
Sub SumColumns()
Dim c As Long
Dim LastRow As Long
LastRow = Range("D" & Rows.Count).End(xlUp).Row
Cells(LastRow + 1, 1).Value = "TOTAL"
For c = 4 To 18
Cells(LastRow + 1, c).Value = Application.Sum(Range(Cells(2, c),
Cells(LastRow, c)))
Next c
End Sub
"Metrazal" <u19384@uwe wrote in message news:5cddf81ae168b@uwe...
I am looking to sum several columns (see below) and have the totals
listed
on the
last line for each column. I also want to insert the text "TOTAL:" on
the
same line in
column A. Following is where I am but I am stuck. Any help would be
appreciated.

Thanks,

Met



CODE, So far:

Application.sum (Range("D2:D"))
Application.sum (Range("E2:E"))
Application.sum (Range("F2:F"))
Application.sum (Range("G2:G"))
Application.sum (Range("H2:H"))
Application.sum (Range("I2:I"))
Application.sum (Range("J2:J"))
Application.sum (Range("K2:K"))
Application.sum (Range("L2:L"))
Application.sum (Range("M2:M"))
Application.sum (Range("N2:N"))
Application.sum (Range("O2:O"))
Application.sum (Range("P2:P"))
Application.sum (Range("Q2:Q"))
Application.sum (Range("R2:R"))