Public Sub zadacha 
Dim a As Single, b As Single, x0 As Single, xk As Single, dx As Single
Dim x As Single, y As Single, m As Single, k As Single
a = Cells(3, 1).Value
b = Cells(3, 2).Value
x0 = Cells(3, 3).Value
xk = Cells(3, 4).Value
dx = Cells(3, 5).Value
x = x0
2
y = Log(1.5 * x - 3) / (Cos((3.14 * b * x) / a) ^ 2)     (ЭТУ СТРОКУ ВЫДЕЛЯЕТ ЖЕЛТЫМ)
Cells(i + 1, 1).Value = x
Cells(i + 1, 2).Value = y
i = i + 1
x = x + dx
If x <= xk Then GoTo 2


End Sub