Как правильно удалить ненужные строки?

[bvitaly]

Не могу подобрать хорошую команду корректно удаляющую не нужные мне строки. Условие простое, например пустая ячейка в 3 столбце.
И еще как лучше перемножить группу чисел с условием:
1 столбец в строке одно число, 2 соответственно второе, 3 результат. Требуется необходимое, но каждый раз разное кол-во строк посчитать и в конце сумму результатов вывести (именно в последней под списком ячейке).

[corgi]

If Sheets("Лист1").Cells(3, "A") = "" Then Sheets("Лист1").Rows(3).Delete
ну а по второй части вопроса могу предложить воспользоваться сумматором

[bvitaly]

Код: Выделить всё

Do While Cells(i, 2).Value <> ""
  If Cells(i, 3).Value = "" Then
   Rows(i).Delete
    Do While Cells(i, 3).Value <> ""
    If Cells(i, 3).Value <> "" Then
    i = i + 1
       End If
    Loop
    i = i - 1
  End If
i = i + 1
Loop


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