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