Application.ScreenUpdating = False
Worksheets(ActiveSheet.Name).Select
For Each r In Worksheets(ActiveSheet.Name).UsedRange.Rows
n = r.Row

If n < 11 Then
GoTo label
End If

If r.EntireRow.Interior.ColorIndex <> 6 Then
r.EntireRow.Delete
End If
label:
Next r
Application.ScreenUpdating = True