Sub Del_empty()
   Selection.SpecialCells(xlCellTypeBlanks).Delete _
   Shift:=xlUp
End Sub