Sum totals at last row

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"))

Sub AddSums()
Dim lastrow as long, cell as Range
lastrow = cells(rows.count,"D").End(xlup)(2).row
for each cell in Range("D2:R2")
cells(lastrow,cell.column).Value =
application.Sum(cell.Resize(lastrow-2,1))
Next
cells(lastrow,"A").Value = "TOTAL:"
End Sub

--
Regards,
Tom Ogilvy



"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"))

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"))

Almost... It totals but for some reason it misses the lastrow. It puts the
data on
row 109 instead of row 112, of course the rows will vary depending on when I
run the code. But its almost there. What am I missing?

Thanks,

Met

Tom Ogilvy wrote:
>Sub AddSums()
>Dim lastrow as long, cell as Range
>lastrow = cells(rows.count,"D").End(xlup)(2).row
>for each cell in Range("D2:R2")
> cells(lastrow,cell.column).Value =
>application.Sum(cell.Resize(lastrow-2,1))
>Next
>cells(lastrow,"A").Value = "TOTAL:"
>End Sub
>
>> I am looking to sum several columns (see below) and have the totals listed
>> on the
>[quoted text clipped - 24 lines]
>> Application.sum (Range("Q2:Q"))
>> Application.sum (Range("R2:R"))

Sub AddSums()
Dim lastrow As Long, cell As Range
With ActiveSheet
.UsedRange
lastrow = .UsedRange.Item(.UsedRange.Count).Row + 1
End With
For Each cell In Range("D2:R2")
Cells(lastrow, cell.Column).Value = _
Application.Sum(cell.Resize(lastrow - 2, 1))
Next
Cells(lastrow, "A").Value = "TOTAL:"
End Sub



--
Regards,
Tom Ogilvy



"Metrazal" <u19384@uwe> wrote in message news:5cded84df87ef@uwe...
> Almost... It totals but for some reason it misses the lastrow. It puts
the
> data on
> row 109 instead of row 112, of course the rows will vary depending on when
I
> run the code. But its almost there. What am I missing?
>
> Thanks,
>
> Met
>
> Tom Ogilvy wrote:
> >Sub AddSums()
> >Dim lastrow as long, cell as Range
> >lastrow = cells(rows.count,"D").End(xlup)(2).row
> >for each cell in Range("D2:R2")
> > cells(lastrow,cell.column).Value =
> >application.Sum(cell.Resize(lastrow-2,1))
> >Next
> >cells(lastrow,"A").Value = "TOTAL:"
> >End Sub
> >
> >> I am looking to sum several columns (see below) and have the totals
listed
> >> on the
> >[quoted text clipped - 24 lines]
> >> Application.sum (Range("Q2:Q"))
> >> Application.sum (Range("R2:R"))