Sub Calculate()

Dim i As Long

Dim ia As Long

Dim xrad As Double

Dim DistanceOfX As Double

Dim DistanceOfY As Double

Dim Atan As Double

Range("A43:A83").Value = DistanceOfX

If Range("B43:B83").Value = 2.875 Then DistanceOfY = -1.375

End If

xrad = -(2.25 - (DistanceOfY * DistanceOfY)) / (DistanceOfX * DistanceOfY)

Atan = (Atn(xrad)) / 2

Range("E43:E83").Value = Atan

End Sub