Как привязать к "выделенной ячейке" закомментированный код? - VBA

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

Здравствуйте! Прошу помощи. Не знаю, как привязать к "выделенной ячейке" закомментированный код?

Условия. Смотрите картинку. 1)Начиная с выделенной ячейки нужно заполнить первую строку числами от 3 до 4 с шагом 0,1. Числа должны иметь вид денежного формата. 2) Ячейкой ниже под каждым из этих чисел должен формироваться результат вычисления формулы: Exp(x)+ln(x)-10*x X - ячейка первой строки

Редактор VBA пишет, смотрите картинку: Next without For (Теряюсь в догадках!).

Sub ДракинVBA2()
Cells.Clear
Dim i%, j%, k!, x!, y#, f%
 
i = 0
For Each mycell In Selection 'надо выделить любую ячейку!
  mycell.Value = 3#
  mycell.NumberFormat = "#,##0.00$" 'не знаю, как будет правильно
  For j = 1 To 10
  mycell.Offset(, j).Value = mycell.Value + k
  k = k + 0.1
  Next
    'For j = 1 To 10
      'If x >= 3 Then
      'y = Exp(x) + Log(x) - 10 * x
      'x = mycell.Value + k
      'k = k + 0.1
      'mycell.Offset(f).Value = j
      'f = f + 1
    'Next     'Вот здесь неудача: Next without For
Next
 
End Sub

О себе. Сообразительностью не отличаюсь. В Астрал входить не умею. С полуслова чужие догадки (ребусы) практически не понимаю. Поэтому не пишите Ваши предложения в форме абстрактных пожеланий. Пожалуйста, всё оформляйте как готовый работающий код. То есть: вставил в программу и всё работает, без всяких догадок.

Остальной код работающий, сразу выдаёт по "выделенной ячейке":

3,00в‚Ѕ 3,00 в‚Ѕ    3,10 в‚Ѕ    3,20 в‚Ѕ    3,30 в‚Ѕ    3,40 в‚Ѕ    3,50 в‚Ѕ    3,60 в‚Ѕ    3,70 в‚Ѕ    3,80 в‚Ѕ    3,90 в‚Ѕ

Решение задачи: «Как привязать к "выделенной ячейке" закомментированный код?»

textual
                            Листинг программы 
                        
                            For Each mycell In Selection 'перебор всех элементов выделенного диапазона на листе, ячеек