Macro To Compare Rows Of Data By Colour

I have the below macro (kindly provide by VoG) which compares rows of data from columns H-P, excluding M, where two rows match across the criteria, the macro takes the first of these matches and copies to sheet2, where there is no match it copies each entry to sheet 3. It works fine except for 1 thing, the data that I am comparing comes in 2 types of rows, coloured yellow and green (color codes 36, 35 in Excel 2003). I would like to add a further condition so that the macro will not match off where 2 yellow or green rows appear together and where a yellow and green row match it will take copy the yellow row to sheet 2 regardless of whether the yellow or green appear first in sequence.


Sub Cmpare()
Dim i As Long, LR As Long, j As Long, k As Long
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Set ws1 = ActiveSheet
Set ws2 = Sheets.Add 'matches
Set ws3 = Sheets.Add 'non-matches
j = 1
k = 1
With ws1
LR = .Range("H" & Rows.Count).End(xlUp).Row
For i = 2 To LR Step 2
Retry:

If .Range("H" & i).Value = .Range("H" & i + 1).Value And _
Abs(.Range("I" & i).Value - .Range("I" & i + 1).Value)