Carrito: 
Con esta rutina pueden eliminar la celdas vacías en una hoja de forma fácil y sencilla:
Copia y pega el código VBA en un módulo Estandar.
Copia y pega el código VBA en un módulo Estandar.
Código VBA:
Sub EliminarFilasVacias()
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
Range("A1").Select
End Sub