Нужен совет

[macujin]

Я написал макрос
Sub öö()

Dim X As Single, Y As Single, K As Single, S As Single, I As Single
Sheets("Ëèñò1").Select
Cells(1, 1) = "X"
Cells(1, 2) = "Z"
I = 2
For X = 1 To 11 Step 1
Z = Log(X ^ (1 / 2) + 1 / X ^ 2)
Cells(I, 1) = X
Cells(I, 2) = Z
I = I + 1
S = S + Z
Next X
End Sub
Получается таблица с X и Z. После чего мы сделали кнопку и график. Мне надо сделать возле первой таблицы сделать еще одну, где даны начальное и конечное значение(В макросе это 1 и 11). Меняя эти значения во второй таблице, первая таблица так же меняется. Например, нач. и конеч. значения 1 и 11, меняем их на 5 и 15 и получаем в первой таблице с X: 5,6,7... 15, а Z уже автоматически рассчитывается. Надеюсь я поставил вопрос корректно. Помогите, пожалуйста, советом.

[IgorGO]

Sub ФУ()
  Dim I As integer
  Cells(1, 1) = "X"
  Cells(1, 2) = "Z"
  For i = 0 To 10
    Cells(I+2, 1) = cells(1,3)+(cells(1,4)-cells(1,3))/10*i
    Cells(I+2, 2) = Log(Cells(I+2, 1) ^ (1 / 2) + 1 / Cells(I+2, 1) ^ 2)
  Next
End Sub

в С1 начальное значение Х, в Д1 - конечное.

[macujin]

Спасибо за помощь, но это строка под ошибкой Cells(I+2, 2) = Log(Cells(I+2, 1) ^ (1 / 2) + 1 / Cells(I+2, 1) ^ 2). Буду искать способ, чтобы исправить. Как найду, отпишусь

[IgorGO]

Ваша функция определена на интервале Х от 0 до +бесконечность,
ошибка возможна при Х < 0 (квадратный корень с отрицательного числа есть иррациональное число, математическая абстракция)