Оптимизация операций с массивами

Ребят, помогите, пожалуйста оптимизировать код:
Dim s(9) As Integer

s(0) = Range("A1").Value + Range("B1").Value
s(1) = Range("A2").Value + Range("B2").Value
s(2) = Range("A3").Value + Range("B3").Value
s(3) = Range("A4").Value + Range("B4").Value
s(4) = Range("A5").Value + Range("B5").Value
s(5) = Range("A6").Value + Range("B6").Value
s(6) = Range("A7").Value + Range("B7").Value
s(7) = Range("A8").Value + Range("B8").Value
s(8) = Range("A9").Value + Range("B9").Value
s(9) = Range("A10").Value + Range("B10").Value

a = s(0) + s(1) + s(2) + s(3) + s(4) + s(5) + s(6) + s(7) + s(8) + s(9)

MsgBox (a)
Все пытался с циклом For Each In ...Next Но ничего не получилось. Не могу найти подходящий пример на котором наглядно понять принцип работы с этим циклом.
1 ответ

Зачем тут массивы?
Sub tt()
 Dim a As ******
 a = Application.Sum(Range("A1:B10"))
End Sub

Sub ttt()
 Dim a As ******, cc As Range
 For Each cc In Range("A1:B10")
 a = a + cc.Value
 Next
End Sub
А массивы нужно на каких-нибудь других, толковых, задачах изучать.