Visual Basic para Aplicaciones - Suprimir celdas vacias

Como puedo suprimir las celdas de una hoja que estan vacias?
Gracias

Que quieres decir con 'suprimir'????

Pues por ejemplo:
casa coche mesa silla. Esta celda vacía que queda entre la celda que contiene coche y la que contiene mesa quisiera suprimirla para que quede:
casa coche mesa silla
Gracias,
Saludos

Vamos a ver..
pongo lo siguiente
ActiveSheet.UsedRange.Select
For Each cell In Selection
If cell.value="" Then
cell.Delete shift:=x1ToLeft
End If
Next cell

El problema es que si hay en una fila 4 celdas vacias o las quesea entre dos celdas con que tiene texto, no me suprime las 4 celdas solo 1 o 2. No se que hacer. Lo único que se me ocurre es repetir muchas veces este bucle pero el prgrama va tardar siglos en ejecutarse...
Que hago? alguna idea?