Sub kniga()
Dim x As Single, y As Single
x = 3
If x <> 0 And x < 2 Then y = Sqr(x * x - 1) - x

Else: If x > 5 Then y = 2 * x

If x < 5 And x > 2 Then y = ошибка
End If
End Sub
Пишет else without if если что это vba

Однострочная конструкция:

If <условие> Then <Делаем чего-нибудь>

Многострочная конструкция:

If <условие> Then   <Делаем чего-нибудь одно>   <Делаем чего-нибудь другое>Else   <Делаем чего-нибудь иное одно>   <Делаем чего-нибудь иное другое>End if