VBA/Excel/Access/Word/Excel/Count

Count a range

   <source lang="vb">

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

</source>