Вывод диапазона значений через объект UsedRange - VBA

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

И снова добрый день. Имеется следующее задание: "Автоматически заполнить в первом листе рабочей книги «практика Excel №2» ячейки А1:А20 значениями sin(i*3.14), а в столбце В1:В20 значениями cos(i^2*3.14), где i – натуральное число, изменяющееся от 25 до 45" Набрал следующий код до вывода значений, где и застопорился:

Sub заполнение_ячеек ()
 
ActiveWindow.Caption = "практика Excel №2"
Workbooks("практика Excel №2").Activate
Dim i As Integer, j As Integer, a As Integer
For i = 1 To 20
For j = 1 To 1
With Worksheets(1).Cells(i, j)
For a = 25 To 45
.Value = Sin(a * 3.14)
Next a
End With
Next j
Next i
Application.ActiveSheet.UsedRange.Columns("1").Value
 
End Sub

Вопрос в выводе значений через UsedRange с помощью цикла for. Как его выполнить? И вторая часть задания будет аналогична первой просто с заменой диапазона?

Проблема актуальна.

Решение задачи: «Вывод диапазона значений через объект UsedRange»

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

                            Sub alextsp()
  [A1:A20] = [INDEX(SIN(ROW(25:45)*3.14),)]
  [B1:B20] = [INDEX(COS(ROW(25:45)^2*3.14),)]
End Sub
                        