Буду признателен программистам, которые помогут разобраться в том как удалять строки по нескольким критериям.

Sub MyOwnDelete()
Dim i As Long, x As Long
Application.ScreenUpdating = False

[B1].Select 'меняем столбец не меняя строки, т.е. С1,D1 и т.д.

x = ActiveCell.Offset(65535, 0).End(xlUp).Row
For i = x To 1 Step -1

If IsEmpty(Cells(i, 2)) = True Then Cells(i, 2).EntireRow.Delete 'меня
'ем столбцы в Cell(i,2) - i - строка, 2 - столбец

Next i
Application.ScreenUpdating = True
End Sub

Как суда добавить условие, что если в 2-х столбцах (x, y) строки i нет данных,то столбцы надо удалять

Извините, не столбцы а строку.

Не вижу кнопочки редактировать..... по сути...
Можно задать переменную, и присваивать ей значение в ячейке. Допусти с 2 по 11 столбик. Если там встретиться хоть одна не пустая ячейка, значит строку не трогать.

Помогите плз.

Ругается....
Expected: end of statement

Мой косяк.. удалил одну букву...
П.с. Работает не корректно, удаляет нужные строки...

Допилил... Огромное спасибо тем кто откликнулся!