Sum column with count formula

[Wally]

With Worksheets("Orders")
LastRow = .Cells(Rows.Count, "J").End(xlUp).Row
End With
Range("J2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
ActiveCell.Formula = "=Sum(J2:J" & LastRow&")"

How would I write the Formula for this cell?

TIA

Gerry

 

[Wally]

With Worksheets("Orders")
    LastRow = .Cells(Rows.Count, "J").End(xlUp).Row
    End With
    Range("J2").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Activate
    ActiveCell.Formula = "=Sum(J2:J" & LastRow&")"

How would I write the Formula for this cell?

TIA

Gerry

Ok, I got that one figured out.

I forgot to set Dim LastRow as String