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

[phoenixriley]

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]

Hi

Try this

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