Нужно написать аналогичный код

[Посетитель]

Есть формула (1), для решение данной формулы написан код в vba.
Надо написать аналогичный код или изменить существующий для второй формулы (2).