Option Explicit
Sub Total()
Dim c As Byte
For c = 19 To 70
If Cells(Rows.Count, c).End(xlUp).Row > 1 Then _
Cells(Cells(Rows.Count, c).End(xlUp).Row + 1, c).Value = Application.Sum(Cells(2, c).Resize(Cells(Rows.Count, c).End(xlUp).Row - 1))
Next c
End Sub