I would like to use this code to SUM the total of column G into a different
worksheet. How do I do this?

Thanks.

Set sh = Workbooks.Application.ActiveSheet
Set r = Range("G" & Rows.Count).End(xlUp).Offset(2, 0)
r.FormulaR1C1 = "=SUM(R2C:OFFSET(RC,-2,0))"