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

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

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