Я использовал следующий макрос, но он явно не идеален:

Sub pust()
Range("B1:B265536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("C1:C265536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

—
Предложите свой вариант решения в комментариях.

В моем случае завис диспетчер при печати PDF файла, который содержал большое количество картинок.

Помогло следующее:

1. Открываем диалоговое окно свойств принтера.
2. Переходим на вкладку «Дополнительно».
3. Выбираем параметр «Печатать прямо на принтер (ускорение вывода на печать)».
4. Нажимаем «ОК».
5. Повторно запускаем документ на печать.

—
Первоисточник