Mega Code Archive
Enters a value in 10 cells in a column and then sums the values
<![CDATA[
Sub EnterInfo()
Dim i As Integer
Dim cel As Range
Set cel = ActiveCell
For i = 1 To 10
cel(i).Value = 100
Next i
cel(i).Value = "=SUM(R[-10]C:R[-1]C)"
End Sub
]]>