помогите пожалуйста составить блок схему для кода

...
x2 = r1 * Cos(alpha1sl * Pi / 180)
Лист1.Range("D17"  ;)  = x2

y2 = r1 * Sin(alpha1sl * Pi / 180)
Лист1.Range("D18"  ;)  = y2

If (x2 >= 0 And y2 >= 0) Then alpha = Atn(y2 / x2) * 180 / Pi
If (x2 < 0 And y2 >= 0) Then alpha = 90 - Atn(y2 / x2) * 180 / Pi
If (x2 < 0 And y2 < 0) Then alpha = 180 + Atn(y2 / x2) * 180 / Pi
If (x2 > 0 And y2 < 0) Then alpha = 2 * 180 + Atn(y2 / x2) * 180 / Pi

далее идет вывод alpha и дальше, например цикл for.. не важно.. трудности с этими 4-мя операторами if.

Дайте пожалуйста рекомендации как составить блок-схему

'r1

For j4 = 1 To 50
rr1н(j4) = Лист2.Range("E" + Trim(Str(j4 + 176))).Value
rr1к(j4) = Лист2.Range("F" + Trim(Str(j4 + 176))).Value
If rr1н(j4) <= r1 And r1 < rr1к(j4) Then
KTrr1(j4) = KTrr1(j4) + 1
Лист2.Range("G" + Trim(Str(j4 + 176))).Value = KTrr1(j4)
End If
Next j4

'x1

For j5 = 1 To 50
x1н(j5) = Лист2.Range("E" + Trim(Str(j5 + 232))).Value
x1к(j5) = Лист2.Range("F" + Trim(Str(j5 + 232))).Value
If x1н(j5) <= x1 And x1 < x1к(j5) Then
KTx1(j5) = KTx1(j5) + 1
Лист2.Range("G" + Trim(Str(j5 + 232))).Value = KTx1(j5)
End If
Next j5

'y1

For j6 = 1 To 50
y1н(j6) = Лист2.Range("E" + Trim(Str(j6 + 28  8)  )).Value
y1к(j6) = Лист2.Range("F" + Trim(Str(j6 + 28  8)  )).Value
If y1н(j6) <= y1 And y1 < y1к(j6) Then
KTy1(j6) = KTy1(j6) + 1
Лист2.Range("G" + Trim(Str(j6 + 28  8)  )).Value = KTy1(j6)
End If
Next j6

'z1

For j7 = 1 To 50
z1н(j7) = Лист2.Range("E" + Trim(Str(j7 + 344))).Value
z1к(j7) = Лист2.Range("F" + Trim(Str(j7 + 344))).Value
If z1н(j7) <= z1 And z1 < z1к(j7) Then
KTz1(j7) = KTz1(j7) + 1
Лист2.Range("G" + Trim(Str(j7 + 344))).Value = KTz1(j7)
End If
Next j7

у меня в excel две таблицы. например :

r / g
9 / 0.09
11/ 0.06

r2 / g2
9.5 / 0.098
13 / 0.12
можно ли в vba занести эти данные из листа в массив и потом проверять поподает ли значение из 2й таблицы (9.5) в интервал из соседних чисел первой таблицы (между 9 и 11) и с помощью интерполяции найти значение g для r=9.5 (в первой таблице)