I have a table of data and i want to delete a block of blank cells within it.

i.e.
A b c d e f g h i
1 x x x x x x x x x
2 x x x x x x x x x
3 x x x...................x
4 x x.......[blank]...x
5 x x...................x
6 x x x x x x x x x
7 x x x x x x x x x

Does anyone know a marco that could select these cells and delete them and the data in column i move to column d. Note there may be some cells that are blank i.e. a5 & b4 that i do not want to delete.

Appreciate any support.