It would still be helpful, for archival purposes, to post your entire macro.

--
Don Guillett
SalesAid Software

"rojobrown" wrote in message
...
I figured it out. Thanks.
--
Thanks a bunch!
rojobrown


"Don Guillett" wrote:

It might be helpful if you posted your entire macro. No mindreader

--
Don Guillett
SalesAid Software

"rojobrown" wrote in message
...
I've included it in my macro but still keep getting the error "compile
error:
Expected End Sub"... I've tried removing it but it still doesn't work.
Any
suggestions?
--
Thanks a bunch!
rojobrown


"Don Guillett" wrote:

Cells(lastrow + 1, "B").Value = _


--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
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