View Single Post
 
Old 11-15-2011, 05:38 AM
halogen_bulb halogen_bulb is offline Windows 7 32bit Office 2010 32bit
Novice
 
Join Date: Nov 2011
Posts: 2
halogen_bulb is on a distinguished road
Default

Solution I gathered form this forum and other forums

Code:
Sub sumx()
Dim LastRow As Long
LastRow = Range("P65536").End(xlUp).Row + 1
     ActiveCell.Select
    Selection.Formula = "=SUM(P" & LastRow + 1 & ":" & Format(ActiveCell.Row - 1, "P#") & ")"

End Sub
[SOLVED]

Last edited by halogen_bulb; 11-15-2011 at 07:37 AM. Reason: [SOLVED]
Reply With Quote