Теория вероятности Определить теоретич значения для удаления - VB

Формулировка задачи:

Добрый день!!!
Помогите пожалуйста осуществить задуманное в явь, если это возможно конечно же.
Имеется файл "ТАРИРОВКА СКЛЕРОМЕТРА" с макросом (назовем его №1)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    If Intersect(Target, Me.[c8:l57]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each c In Me.[x8:x57].Cells
        If c.Value = "Отбраковывается" Then _
            Intersect(Me.Rows(c.Row), Me.Range("T:U,AB:AC,AI:ai,AL:AM,AS:as,AV:AX")).ClearContents
    Next
    Application.EnableEvents = True
End Sub

Условие когда срабатывает данный макрос, таково:

Возможно ли прописать макрос (назовем его №2)
1. если в ячейке AS60 значение >1,5;
2. также в ячейке AU:AX61 значение <0,7;
3. в ячейке AH63:AK64 значение <6>15
Если три этих пункта не выполняются после удаления значений 1-го макроса. Макрос №2 (пусть он будет в виде кнопки и оператор на нее должен нажать) теоретически произвел расчет и предположительно "окрасил" ячейки (предполагаемые) которые оператор должен удалить значения (аналогично во всех столбцах как макрос №1) то в ячейках:
1. AS60 значение будет <=1,5;
2. AU:AX61 значение будет >=0,7;
3. AH63:AK64 значение будет >6 <15;
Также очень важно что общее число количества испытаний должно быть не менее 30. Если после использования макроса №2 кол-во испытаний менее 30-ти то оператор должен увеличить кол-во испытаний чтоб выполнялось данное условие:

Прошу вас, если вы не поняли то спросите. Чтоб я мог бы хоть как то еще раз попытаться объяснить, только не молчите.
Если же это не возможно сделать то прошу вас также озвучить. ЗАРАНЕЕ всем ОГРОМНЕЙШЕЕ СПАСИБО!!!

Решение задачи: «Теория вероятности Определить теоретич значения для удаления»

textual
                            Листинг программы 
                        

                            Sub Макрос_1()
  Dim i&
  For i = 8 To 57
    If Cells(i, "T") <> "" And (Cells(i, "V") < -2 Or Cells(i, "V") > 2) Then
       Cells(i, "V").Value = Cells(i, "V").Value
       Cells(i, "V").Interior.ColorIndex = 36
       Cells(i, "X") = "Отбраковывается"
       Cells(i, "X").Interior.ColorIndex = 36
       Intersect(Rows(i), Range("T:t,AB:AC,AI:ai,AV:AX")).ClearContents
    End If
    If Cells(i, "U") <> "" And (Cells(i, "W") < -2 Or Cells(i, "W") > 2) Then
       Cells(i, "W").Value = Cells(i, "W").Value
       Cells(i, "W").Interior.ColorIndex = 36
       Cells(i, "X") = "Отбраковывается"
       Cells(i, "X").Interior.ColorIndex = 36
       Intersect(Rows(i), Range("U:U,AL:AM,AS:as")).ClearContents
    End If
  Next
  If Range("AS60") <= 1.5 And Range("AU61") >= 0.7 And (Range("AU61") <= 6 And Range("AU61") >= 15) Then
     MsgBox "Условие выполнено, процедура закончена"
     Exit Sub
  Else
     If MsgBox("Условие не выполнено. Продолжить?", vbYesNo) = 6 Then
       Макрос_2
     End If
  End If
End Sub
Sub Макрос_2()
  Dim x&, j&, M@, B@
  M = -1.9
  B = 1.9
  For x = 1 To 20
    For j = 8 To 57
      If Cells(j, "U") <> "" And (Cells(j, "W") < M Or Cells(j, "W") > B) Then
         Cells(j, "W").Value = Cells(j, "W").Value
         Cells(j, "W").Interior.ColorIndex = 36
         Cells(j, "X") = "Отбраковывается"
         Cells(j, "X").Interior.ColorIndex = 36
         Intersect(Rows(j), Range("U:U,AL:AM,AS:as")).ClearContents
      End If
    Next j
    If Range("AS60") <= 1.5 And Range("AU61") >= 0.7 And (Range("AU61") <= 6 And Range("AU61") >= 15) Then
       MsgBox "Условие выполнено, процедура закончена"
       Exit Sub
    Else
       If MsgBox("Условие не выполнено. Продолжить?", vbYesNo) = 6 Then
          M = M + 0.1
          B = B - 0.1
          Cells(3, "V") = M
          Cells(3, "W") = B
       Else
          Cells(3, "V") = ""
          Cells(3, "W") = ""
          Exit Sub
       End If
    End If
  Next x
End Sub

'1. Если в ячейке V14 значение (">2;>-2")
'УДАЛЯЛИСЬ значения из ячеек: T14; AB:AC14; AI14; AV:AX14.

'2. Если в ячейке W14 значение (">2;>-2")
'УДАЛИЛИСЬ значения из ячеек: U14; AL:AM14; AS14

'макрос №2
'должен определить в столбце W приблеженные значения к (>2; <-2)
'окрасить их, а в столбце X прописать "отбраковывается"
'и удалить значения из ячеек: U; AL:AM; AS; AV:AX.
'Но, при этом значения в столбце "W" не изменилось после удаления

                        