Не могу понять в чём ошибка (бэйсик) Помогите пожалуйста

Sub f()

m = Cells(1, 1)

n = Cells(2, 1)

k = Tan(m / Sqr(n)) <- указывает на эту строчку

If (k < 0) Then y = -(k) ^ 2

If (k > 0) And (k <= 1 / 2) Then y = 0

If (k > 0.5) Then y = -(k - 0.5) ^ 2

p = Exp(1 - ^ 2)

Cells(3, 1) = k

Cells(4, 1) = y

Cells(5, 1) = p

End Sub