Вывести двумерный статический массив по формуле - VBA

Формулировка задачи:

Дан массив f(5,5) Задание:вывести двумерный динамический массив, по формуле f(i, j) = 2 + Cos(w ^ 2 + 6), причем w=0.1,0.2,0.3... Выводит все одинаковые элементы. Не могу понять, что я не правильно делаю. Заранее спасибо за помощь и потраченное время.

Private Sub CommandButton4_Click()
For i = 1 To 5
For j = 1 To 5
For w = 0.1 To 2.5 Step 0.1
f(i, j) = 2 + Cos(w ^ 2 + 6)
Selection(i, j) = f(i, j)
Next w
Next j
Next i
End Sub

Решение задачи: «Вывести двумерный статический массив по формуле»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton4_Click() 
 For i = 1 To 5
           For j = 1 To 5
                w = w + 0.1  
                f(i, j) = 2 + Cos(w ^ 2 + 6) 
                Selection(i, j) = f(i, j) 
               ' Cells(i, j) = f(i, j) ' вот так попробуй, если предыдущая строка не идет
           Next j 
     Next i 
End Sub
                        