Delete Row Based on Color

For xRow = 1 to 1000
if(Cells(xRow,1).Interior.ColorIndex = 3) then
         Row(xRow).select
         Selection.Delete
End If
next xRow

will check the 1st 1000 rows, you'll need to amend the loop for your code etc