Hi

Add the following line
Code:
on error resume next
before the line

Code:
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete