code syntax

Can you please modify the code below, especially the IF statement (should be if any value in J2:J is <=120 or Yellow Then D2:D is Red). Also, is the reads code correct? Thank you very much.

 Sub QC()
    Dim rngCell As Range
    Dim i As Long
    Application.ScreenUpdating = False
'Coverage code
    i = Range("J" & Rows.Count).End(xlUp).Row
    For Each rngCell In Range("J2:E" & i)
        Select Case rngCell.Value
            Case Is <= 120
                rngCell.Interior.Color = RGB(255, 255, 0) 'Yellow
   IFF J2:J="Yellow" Then ("D2:D" & i)
                rngCell.Interior.Color = RGB(255, 0, 0) 'Red
                        End Select
    Next rngCell
    
    'Reads code
    i = Range("H+I" & Rows.Count).End(xlUp).Row
    For Each rngCell In Range("H2:H + I2:I" & i)
        Select Case rngCell.Value
            Case Is <= 120
                rngCell.Interior.Color = RGB(255, 204, 0) 'Orange
        End Select
    Next rngCell
    End With
    
        Application.ScreenUpdating = True

 End Sub