How to USE """"" cells count """"" change font color

Sub testtest()
Dim hh As Integer
For hh = Range("A1:D6").Cells.Count To 1 Step -1    '''''' 24 to 1
If Cells(hh) < 1 Then
Range("A1:D6").Cells(hh).Font.Color = vbRed '''''' cells.value <1 change font color red (and blank cells no change)
Else
Range("A1:D6").Cells(hh).Font.Color = vbBlue ''''' cells.value >1 change font color blue (and blank cells no change)
End If
Next
End Sub

this code not work, please help ! for reference attached image ra1AhNO.jpg