Sum totals at last row

[Metrazal]

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"))
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"))
Application.sum (Range("Q2:Q"))
Application.sum (Range("R2:R"))

 

[Tom Ogilvy]

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

 

[Otto Moehrbach]

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]

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

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

 

[Tom Ogilvy]

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

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

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