Sum column with count formula
 

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

Sum column with count formula
 

On Nov 26, 3:28*pm, Wally wrote:
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