Sub addcol()
lastrow = Cells(Rows.Count, "a").End(xlUp).Row
Cells(lastrow + 1, "a") = "ABCDEFG"
Cells(lastrow + 1, "a").Value = _
Application.Sum(Range("b2:b" & lastrow))
End Sub

--
Don Guillett
SalesAid Software

"rojobrown" wrote in message
...
Is this for the sum formula or the first one? Do I need to put something
between the parenthesis?
Sub addcol()
--
Thanks a bunch!
rojobrown


"Don Guillett" wrote:

something like
Sub addcol()
lastrow = Cells(Rows.Count, "a").End(xlUp).Row
Cells(lastrow + 1, "a").Value = _
Application.Sum(Range("a2:a" & lastrow))


End Sub
--
Don Guillett
SalesAid Software

"rojobrown" wrote in message
...
This is an example of how I would like the file to look:

Column A Column B
123456 5.00
123456 5.00
123456 5.00
ABCDEFG 15.00

The ABCDEFG is the account I would like to add at the bottom of the
file.
The 15.00 is the column that I would like to sum =sum(B1:whatever).
The
issue I am running
into is that the row number changes every month depending on how many
pulls
in the report I run. This is what I was trying to use
but it placed the account number in every row under column A. I didn't
know
where to even begin for the sum formula.. I would like to incorporate
this
into the macro that I currently run... Any suggestions?

Range("A2").Select
LastRow = Cells(Rows.Count, "E").End(xlUp).Row
Range("A2").Resize(LastRow - 1).FormulaR1C1 = "4651020098"

--
Thanks a bunch!
rojobrown


--
Thanks a bunch!
rojobrown