Ayuda con macro para eliminar celdas

Buenas tardes.
Estoy intentando crear una macro que elimine las celdas vacías de un rango,
desplazando hacia la izquierda las que tengan datos.
Ejemplo. Supongamos que queremos agrupar todos los cuadros negros de un
tablero de ajedrez (8x8 celdas), en la izquierda del tablero, eliminando los
blancos, y de forma que nos quedaría un tablero de 8 filas y sólo 4
columnas.
Creo que me he explicado bien.
El problema es que el rango no es de 8x8 sino bastante más grande 4500 x 36
aproximadamente
Lo he intentado pero me hago un lío con los rangos y los desplazamientos.
Muchas gracias y un saludo


Por cierto, he estado leyendo los mensajes del último mes y no he encontrado
nada que me sirviera para esto, pero sí para otras macros.
Buen trabajo de los "profes", si señor.