Auto Sum Rows

Hi just,

Here's a little VBA code:

Sub AutosumC(): Dim c As Long
c = Range("C" & Rows.Count).End(xlUp).row + 1
Range("C" & c) = WorksheetFunction.Sum(Range("C1:C" & c - 1))
End Sub