Эксель = Новый COMObject("Excel.Application");
Книга = Эксель.WorkBooks.Open(ФайлИтог);
Лист = Книга.WorkSheets(ЛистИтог);
ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
ДЛЯ й=1 ПО ВсегоСтрок ЦИКЛ
ЕСЛИ СокрЛП(Лист.Cells(ВсегоСтрок+1,1).Value) = "" ТОГДА
Лист.Rows(й).Delete();
й=й-1;
Иначе
ПРЕРВАТЬ;
КОНЕЦЕСЛИ;
КОНЕЦЦИКЛА;
Попробуй так, возможно без параметра Shift: сработает, а если нет, надо смотреть, чему он может быть равен.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший