Sub addAmtRel()
Set myRange = Range(ActiveCell, ActiveCell.End(xlUp)) ' Substitute your range here
myCount = Application.Count(myRange)
ActiveCell.Formula = "=SUM(R[" & -myCount & "]C:R[-1]C)" ' Substitute your cell address here
End Sub