Delete entire row based on 2 criteria

I'm trying to write a macro to delete an entire row only if all cells are blank and all cells have colorindex = 15. The sheet is 40 rows long and 10 columns wide, with some cells at the bottom of the list highlighted yellow. The problem I'm having is that it deletes rows until it reaches a point where all columns contain data. I need I need it to just delete the rows below the longest list.