Try something like:
Sub sumColumn()
Dim firstRow As Long
Dim lastRow As Long
Dim aColumn As Integer
aColumn = 7 'Column G
firstRow = 9
lastRow = Cells(65536, aColumn).End(xlUp).Row
If lastRow = firstRow Then _
Cells(lastRow + 1, aColumn) = _
"=SUM(R" & firstRow & "C:R" & lastRow & "C)"
End Sub
This assumes that there is no total already entered (or
else the existing total would be included in the new
total).
Tim
-----Original Message-----
I would like to sum a column in a macro I have recorded.
It would start
at the same cell (G9) everytime but the length of the
column will vary
from day to day. I would like to put the sum in the
first available
cell at the end of the column. What would be the best
way to
accomplish this. Thank you in advance.
------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from
http://www.ExcelForum.com/
.