Макрос для подсвечивания числовых ячеек с ошибками

Sub kinoreliz()
    For i = 6 To Cells.SpecialCells(xlCellTypeLastCell).Row
        Cells(i, 8).Interior.ColorIndex = xlNone
        On Error Resume Next
        ff = CInt(Cells(i, 8))
        If Err Then Cells(i, 8).Interior.ColorIndex = 3
    Next
End Sub

Sub kinoreliz()
    Application.ScreenUpdating = False
    For j = 5 To 9
        For i = 6 To Cells.SpecialCells(xlCellTypeLastCell).Row
            Cells(i, j).Interior.ColorIndex = xlNone
            On Error Resume Next
            ff = CInt(Cells(i, j))
            If Err Then Cells(i, j).Interior.ColorIndex = 3
        Next i
    Next j
    Application.ScreenUpdating = True
End Sub

Dim i As Long, j As Long

Private Sub Test()
    Dim r As Range: Set r = Range("E6:J" & Rows.Count)
    r.Interior.ColorIndex = xlNone
    
    On Error Resume Next
    Set r = r.SpecialCells(xlConstants, xlTextValues)
    If Not r Is Nothing Then r.Interior.Color = vbRed
End Sub

Private Sub Test2()
    Dim r As Range
    Set r = Range("E6:J" & Rows.Count)
    r.Interior.ColorIndex = xlNone
    
    If Application.CountIf(r, "*") Then _
    r.SpecialCells(xlConstants, xlTextValues).Interior.Color = vbRed
End Sub