Вы в Вашем коде проверяете пустоту ВСЕХ ячеек строки, но на самом деле в Вашем задании явно указано что надо удалить только те значения, в которых не указана цена и остаток - бишь надо проверять только колонки C и D  
Плюс зачем городить огород с перебором строк: Вы определили первую строку выделения (RB), определили количество строк выделения (RS) - вот и шагайте от RB к RB+RS. Хотите проверять колонки снизу вверх - шагайте от RB+RS к RB с шагом -1.  
У меня заработал такой код:  
Sub Óäàëèòü_ïóñòûå()  
   Dim RB As Long, CB As Long, RS As Long, CS As Long, I As Long  
     
   Application.ScreenUpdating = True  
   Application.Calculation = xlCalculationManual  
   RB = Selection.Cells(1, 1).Row  
   CB = Selection.Cells(1, 1).Column  
   RS = Selection.Rows.Count  
   CS = Selection.Columns.Count  
   For I = RB To RB + RS  
       If Range(Cells(I, 3), Cells(I, 4)).Text = "" Then Range(Cells(I, 3), Cells(I, 4)).EntireRow.Delete  
   Next I  
   Application.Calculation = xlCalculationAutomatic  
Application.ScreenUpdating = True  
End Sub

а это что за ерунда?  
If Range(Cells(I, 3), Cells(I, 4)).Text = "" ...  
 
что это, по-вашему, должно вернуть?

Андрей, перед тем как писать, я в своем файле внес в A1 "а", в B1 "б"  
 
в окне Immediate получил:  
? [a1].text ==> а
? [b1].text ==> б
? [a1:b1].text ==> Null
 
вот, решил спросить - что за ерунда? :)

Если строк много, я бы отбирал автофильтром.

>> Таблица взята условно, на самом деле приходится работать с таблицами, с большим количеством строк и столбцов  
   
Если длина строки sAddress > 256 - вывалится с ошибкой.

Sub www()  
   With [a5].CurrentRegion
       .AutoFilter 3, "=": .AutoFilter 4, "="  
       .Offset(1).SpecialCells(12).EntireRow.Delete  
       .AutoFilter  
   End With  
End Sub

Сначала ставите фильтр на шапку таблицы.  
Потом выделяете нужные  столбцы  
Запускаете макрос  
 
Sub УП()  
Dim ФильНач As Long, ФильКол As Long, ВыдНач As Long, ВыдКол As Long, I As Long  
Application.ScreenUpdating = False  
Application.Calculation = xlCalculationManual  
ВыдНач = Selection.Cells(1, 1).Column  
ВыдКол = Selection.Columns.Count  
With ActiveSheet.AutoFilter.Range  
ФильНач = .Cells(1, 1).Column  
ФильКол = .Columns.Count  
If ВыдНач < ФильНач Or ВыдНач + ВыдКол > ФильНач + ФильКол Then  
MsgBox ("Выделенные столбцы выходят за пределы фильтруемых столбцов !")  
Exit Sub  
End If  
.Select  
For I = (ВыдНач - ФильНач + 1) To (ВыдНач + ВыдКол - ФильНач)  
Selection.AutoFilter I, "="  
Next  
Selection.Offset(1).SpecialCells(12).EntireRow.Delete  
Selection.AutoFilter  
End With  
Application.Calculation = xlCalculationAutomatic  
Application.ScreenUpdating = True  
End Sub  
 
В охваченном фильтром диапазоне удаляются целиком строки, у которых внутри выделенных столбцов имеются только пустые ячейки.  
 
При этом:  
Без разницы, именно в каком месте листа расположена таблица  
Без разницы, именно в каком месте вы будете выделять нужные столбцы, можно даже выделять не целые столбцы, а ячейки или диапазон. Можно выделять ячейки над фильтруемым диапазоном, под фильтруемым диапазоном, или внутри фильтруемого диапазона  
Макрос не связан строго ни с одной ячейкой или диапазоном.  
 
Быстродействие по сравнению с первоначальным вариантом сильно ощутимо, так как первоначальный вариант удалял нужные строки по одному, а этот макрос удаляет все нужные строки одним скопом (с помощью фильтра)  
 
НО:  
- Когда выделяете ячейки, чтобы показать макросу по каким столбцам надо проверять пустоту ячеек, нельзя выделять несмежные ячейки.  
- Если вы запустите макрос не поставив фильтр на шапку таблицы, то он не будет работать.  
 
Нужно, чтобы когда пользователь запустит макрос не поставив фильтр на шапку таблицы, ему выдало бы соответствующее сообщение и Exit Sub. Не могу пока это осуществить (Не знаю как проверить поставлен ли фильтр или нет)  
 
СПАСИБО ВСЕМ