Maybe

[vba]

With ThisWorkbook.Sheets("Agent_View")
For i = 18 To 47
With .Cells(i, "AZ")
If IsNumeric(.Value2) Then
Select Case .Value2
Case Is <= 200: .offset(), -51).Resize(, 8).Interior.ColorIndex = 43
Case Is <= 250: .offset(), -51).Resize(, 8).Interior.ColorIndex = 44
Case Is >= 251: .offset(), -51).Resize(, 8).Interior.ColorIndex = 3
End Select
Else
Cells(i, "A").Resize(, 8).Interior.ColorIndex = xlColorIndexNone
End If
End With
Next i
End With
[/vba]