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

Maybe:

Sub austin123456()
Dim i As Integer
Dim x As Integer
For x = 1 To 6
For i = 1 To 6
If Sheets("Sheet1").Cells(i, x).Value - Sheets("Sheet2").Cells(i, x).Value < 1 Then
    Sheets("Sheet1").Cells(i, x).Font.ColorIndex = 3
End If
If Sheets("Sheet1").Cells(i, x).Value - Sheets("Sheet2").Cells(i, x).Value > 1 Then
    Sheets("Sheet1").Cells(i, x).Font.ColorIndex = 5
End If
Next i
Next x
End Sub