SYNTAX FOR SUM FORMULA WITH VARIABLE 1

[Evil8]

I'm getting an error on the last line. Can anyone point out my error. I'm pretty new at this, but getting better.

'Last Row
Dim LastRow As Long

'Recalculate the LAST real row
LastRow = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row

'Set Column and Row Totals
Range("J" & LastRow + 2).Select
ActiveCell.FormulaR1C1 = "=SUM(J5:J + LastRow)

 

[SkipVought]

Hi,

 ActiveCell.FormulaR1C1 = "=SUM(J5:J + " & LastRow & ")"

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[SkipVought]

Loose the R1C1...

 ActiveCell.Formula = "=SUM(J5:J + " & LastRow & ")"

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[Evil8]

Skip, in either case I get a Name error: The formula contains unrecognized text.

On the test spreadsheet it looks like:

With R1C1
=SUM('J5':J + 92)

Without R1C1
=SUM(J5:J + 92)

 

[SkipVought]

Sorry,

ActiveCell.Formula = "=SUM(J5:J" & LastRow & ")"

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[Evil8]

Excelent! Thanks Skip!