Posting a representative sample is an art.

Sub M_snb()
  sn = Cells(1).CurrentRegion

  For j = 1 To UBound(sn)
    If sn(j, 2) <> "" Then
      y = j
    Else
      For jj = 2 To 5
        If sn(y, jj) <> sn(j, jj + 4) Then Cells(j, jj + 4).Interior.ColorIndex = 22
      Next
    End If
  Next
End Sub