Never mind, I got it:

Sub DelRow()
Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Thanks anyway!