VBA macro to sum a range from start to last occupied cell

phoenixriley · Apr 3rd, 2002, 01:24 AM

Hello,
Using VBA, How do I sum a range from a starting reference like "P2" to the last occupied cell in that column and put that result in the cell below the last occupied cell.

Thanks kindly

Dave Hawley · Apr 3rd, 2002, 01:30 AM

Hi

Try this

Code:

Sub SumIt()
    Range("P65536").End(xlUp).Cells(2, 1) = _
    "=SUM($P:" & Range("P65536").End(xlUp).Address & ")"
End Sub

Apr 3rd, 2002, 01:30 AM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Hi Try this Code: Sub SumIt() Range("P65536").End(xlUp).Cells(2, 1) = _ "=SUM($P:" & Range("P65536").End(xlUp).Address & ")" End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 3rd, 2002, 01:24 AM	#1
phoenixriley New Member Join Date: Apr 2002 Posts: 1	Hello, Using VBA, How do I sum a range from a starting reference like "P2" to the last occupied cell in that column and put that result in the cell below the last occupied cell. Thanks kindly