If ActiveCell.EntireRow.Cells(y, 21).Interior.ColorIndex <> 2 Then
ActiveCell.EntireRow. = Range.Object bestehend aus einer Zeile und hat
Cells(Index) von 1 bis Columns.count (1-16384)
somit kein y !