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

[Юрий_brv]

Добрый день . На листе  имеются таблицы с данными . По нажатию на кнопку  должны удалиться пустые строки и строки выделенные желтым цветом. Как можно подкорректировать код? Заранее благодарен.

[vikttur]

С пустыми понятно. Какой критерий для удаления других строк?
Строка6, строка12 - в одной "Наименование" выделено, в другой - нет...

[vikttur]

Когда можно будет править свои сообщения?
Понял, оставлять только "шапку" и ТМЦ. Но названия ТМЦ могут быть разными. правильно ли:
оставить шапку таблицы и строки с числовыми значениями?
Данные в нужных строках в столбцах B:E есть всегда? какой столбец брать как критерий?

[cheshiki1]

для цвета такой вариант

Код Выделить Развернуть

If Cells(r, 1).Interior.Color = 65535 Then Rows(r).Delete
вот только интересно кто будет закрашивать ячейки.

[Юрий_brv]

Все разобрался.Ошибку понял. ТЕМА ЗАКРЫТА.Спасибо за отзывы