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

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
    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
    Intersect(Rows(i), Range("U:U,AL:AM,AS:as")).ClearContents
    End If
Next
End Sub

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" не изменилось после удаления