Упражнение 21 нужно написать в visual basic, помогите кто сможетпрям безотлагательно

Заполни ячейки A2, B2, C2
Sub Calculate() 'Начало процедуры
Dim deposit As Integer 'величина вклада
Dim period As Integer 'срок вклада
Dim percent As Integer 'годичная процентная ставка
Dim day_percent As Double 'каждодневная процентная ставка
Dim profit As Double 'доход
Dim result As Double 'результат
deposit = Cells(2, 1).Value 'присваиваем величине вклада значение ячейки А2
period = Cells(2, 2).Value 'присваиваем сроку вклада значение ячейки B2
percent = Cells(2, 3).Value 'присваиваем годичный процентной ставке значение ячейки C2
day_percent = period * percent / 365 'каждодневная процентная ставка = срок вклада (умножаем) на годичную процентную ставку и (делим) на 365 дней
profit = deposit * day_percent / 100 'доход = величина вклада (умножаем) на ежедневную процентную ставку и (разделяем) на 100%
result = deposit + profit 'Результат = величина исходного вклада (плюс) доход
Cells(6, 3).Value = profit 'заносим доход в ячейку C6
Cells(7, 3).Value = result 'заносим результат в ячейку C7
End Sub 'Конец процедуры