Sub Test()
Dim RWork As Range, RDel As Range, RRow As Long
  Application.FindFormat.Interior.ColorIndex =  32 
  Set RWork = Range("A:A").Find(What:="", LookIn:=xlFormulas, LookAt:=xlPart, _
    SearchOrder:=xlByRows, SearchDirection:=xlNext, SearchFormat:=True)
  If Not RWork Is Nothing Then
    Set RDel = Nothing
    Application.FindFormat.Interior.ColorIndex =  16 
    Do
      Set RWork = Range("A" & RWork.Row & ":A65536").Find(What:="", _
        SearchDirection:=xlNext, SearchFormat:=True)
      If RWork Is Nothing Then
        Exit Do
      Else
        If RDel Is Nothing Then
          Set RDel = RWork
        Else
          If RRow = RWork.Row Then Exit Do
          Set RDel = Union(RDel, RWork)
        End If
        RRow = RWork.Row
      End If
    Loop
    If Not RDel Is Nothing Then RDel.EntireRow.Delete
  End If
End Sub 'Test