change cell color only if that cells font color is black and it's value is < 2000

try (just hint):

Sub Button1_Click()
Dim i As Integer
For i = 5 To 33
    If (Range("E" & i).Font.Color = vbBlack And Range("E" & i).Value < 2000) Then
        MsgBox ("In cell E" & i & " value " & Range("E" & i).Value & " is black and less than 2000")
    End If
Next i
End Sub