For iRow = 2 To 12
iSum = iSum + Cells(iRow, 1)
Next
MsgBox "Сумма ячеек :" & iSum
Предполагается, что : 1 - это столбец "A" iRow - это строки с 2 по 12 iSum - это Сумма ячеек Примечание : Если в любой ячейке будут данные отличные от числовых, то Вы получите ошибку.