В Excel, как в Perl, чтобы решить одну задачу можно использовать несколько способов.
Когда я занимался Excel, надо было делать математическую обработку записанного сигнала от датчика (уйма информации). Так вот самым быстрым способом было - перевод данных из ячеек в массив, а затем обратно в дипазон.

Учись студент, и люби Родину - мать твою

Sub test()
Dim a()
Dim r As Range
Dim i As Long, j As Long

'-- считывание в массив
Set r = Selection '-- выделенный сейчас диапазон ячеек
cc = r.Columns.Count
rc = r.Rows.Count
ReDim a(1 To rc, 1 To cc)
a = r.Value

'-- работа с массивом
For i = 1 To rc
For j = 1 To cc
Debug.Print "old a(" & i; "," & j& & ") = " & a(i, j)
a(i, j) = a(i, j) * i * j
Debug.Print "new a(" & i; "," & j& & ") = " & a(i, j)
Next j
Next i

'-- вывод в другой диапазон
Dim r1 As Range
Set r1 = r.Offset(ColumnOffset:=5)
r1.Value = a
r1.Select

End Sub