Try this

Sub test()
Sheets("sheet2").Range("A2").Value = Sheets("sheet2").Range("A2").Value + _
Sheets("sheet1").Range("B" & Rows.Count).End(xlUp).Value
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"STEVEB" wrote in message
...

Hi,

Does anyone have any suggestions for the following:

I would like to add the last cell in column B (The row varies daily) on
sheet 1 to the existing amount on Sheet 2 Cell A2.

For example the last cell on Sheet 1 column B is $100. The amount on
Sheet 2 Cell A2 is $5. I would like a Macro that would find the last
cell on Sheet 1 Column B and add it to the existing value of Cell A2
Sheet 2 to create a new cell value of $105.

Any help would be greatly appreciated.


--
STEVEB
------------------------------------------------------------------------
STEVEB's Profile: http://www.excelforum.com/member.php...fo&userid=1872
View this thread: http://www.excelforum.com/showthread...hreadid=483297