Удалить строку на основе индекса цвета заливки

Я пытаюсь удалить все строки в диапазонеA7:AI300 которые содержат ячейку с желтой заливкой (Цветовой индекс 6) У меня есть некоторый код, который удалит все строки, содержащие цвет, но проблема, с которой я столкнулся, заключается в том, что он пытается запустить код для всей рабочей таблицы и замораживает мою рабочую книгу. Я пытаюсь вставить диапазон, чтобы ускорить вычисления. Может кто-нибудь показать мне, как вставить диапазон, чтобы он работал

Sub deleterow()
   Dim cell As Range
   For Each cell In Selection
       If cell.Interior.ColorIndex = 6 Then
           cell.EntireRow.Delete
       End If
   Next cell
End Sub

Ответы на вопрос(2)

Ваш ответ на вопрос