Обработка данных Excel в VBA

Sub Hor()
Dim ft
Dim lt
Dim ht
Dim fi
Dim li
Dim hi
Dim Rng As Range
Dim iCell As Range
Open "D:\......csv" For Append As #1
l = 3.14159
Rl = 1738000
ft = 86.35
lt = 30.55
ht = -1210
Print #1, ft, lt
Set Rng = Range(Cells(2, 3), Cells(20259, 3))
 For Each iCell In Rng
  hi = iCell.Value
  If hi > 0 Then
   fi = Cells(iCell.Row, 1)
   li = Cells(iCell.Row, 2)
    If Abs(ht - hi) > 0 Then
 
    [COLOR="Blue"]x1 = (Cos((90 - ft) * l / 180) * Cos((90 - fi) * l / 180)) + (Sin((90 - ft) * l / 180) * Sin((90 - fi) * l / 180) * Cos((lt - li) * l / 180))
    D = (Atn(-x1 / Sqr(-x1 * x1 + 1)) + 2 * Atn(1)) * 180 / l
    t = Rl * Tan(D * l / 180)
    b = ((Rl + hi) ^ 2 + (Rl + ht) ^ 2 - 2 * ((Rl + hi) * (Rl + ht) * Cos(D * l / 180))) ^ 0.5
    a1 = (b ^ 2 + (Rl + hi) ^ 2 - (Rl + ht) ^ 2) / (2 * b * (Rl + ht))
    a = (Atn(-a1 / Sqr(-a1 * a1 + 1)) + 2 * Atn(1)) * 180 / l
    x2 = Cos((90 - ft) * l / 180) * Cos((90 - fi) * l / 180) + (Sin((90 - ft) * l / 180) * Sin((90 - fi) * l / 180) * Cos(Abs((lt - li) * l / 180)))
    La = (Atn(-x2 / Sqr(-x2 * x2 + 1)) + 2 * Atn(1)) * 180 / l
     If lt = li Then c = 0
    c1 = Sin(Abs((lt - li) * l / 180)) * Sin((90 - fi) * l / 180) / Sin(La * l / 180)
    c = (Atn(c1 / Sqr(-c1 * c1 + 1))) * 180 / l
     End If
      If fi < ft Then
       If li < lt Then
        Az = 360 - c
        Else: Az = c
       End If
      Else:
       If li > lt Then
        Az = 180 + c
       End If
        If li < lt Then
         Az = 180 - c
        End If
      End If
                       
     If 90 - a - D > 0 Then
      m = 90 - a - D
      Else: m = 0
     End If
     If Az > 360 Then Az = Az - 360[/COLOR]     
    A0 = Fix(Az)
  Print #1, fi, ",", li, ",", c, ",", A0, ",", m
 End If
Next
 
End Sub

dim curRow as Long, r as Long
const LastRow = XXXXXXXX
 
curRow = 2
do while curRow < lastRow
   h1 = cells(curRow, 1).Value
   x1 = cells(curRow, 2).Value
   y1 = cells(curRow, 3).Value
  
  for r = curRow + 1 to lastRow
     h2 = cells(r, 1).Value
     x2 = cells(r, 2).Value
     y2 = cells(r, 3).Value
 
     и считаем что надо
 
  next r
  curRow = curRow + 1
loop