> seru = "A" & CStr(i)
> kazu = Range(seru).Value
文字列で指定せずとも、
　v = Cells(行番号, 列番号).Value
で取得できますよ。

また、VBA であることを活かし、ループで処理せずに Excel 自身に計算させる事もできます。
たとえば、A1:D100 にデータがあって、合計値を A101:D101 の行に記入したいなら、
　Range("A101:D101").FormulaR1C1 = "=SUM(R1C:R[-1]C)"
と記述すれば OK です。