Sum Error

[kenpcli]

Having trouble getting this to work so that it add the sum to the end of column G:

lastrow = ThisWorkbook.Sheets("HOURS BY ID").Cells(Rows.Count, 2).End(xlUp).Row
ThisWorkbook.Sheets("HOURS BY ID").Range("G" & lastrow + 1) = Application.WorksheetFunction.Sum(ThisWorkbook.Sheets("HOURS BY ID").Range("G2:G" & lastrow))

 

[JoeMo]

Your lastrow variable is calculated fro col B, not G.
Try:

lastrow = ThisWorkbook.Sheets("HOURS BY ID").Cells(Rows.Count, "G").End(xlUp).Row

 

[kenpcli]

Your right forgot column count . Thanks

 

[JoeMo]

Your right forgot column count . Thanks

You are welcome - thanks for the reply.