Glad you got it all working by yourself in the end. You could also try the
Code:
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
option. But just be sure what your doing.