Macro to search column for blank cells & shift entire row right

[BirdS]

Hi,

I am trying to write a macro to do the following:

Search column "I" for blank cells. If one is found then all adjacent cells to the left in that row are shifted to the right by one. (in other words for that row cells A-H are shifted right to become cells B-I).

Hope that is clear - Thanks in advance for any help!

BirdS