Conditional empty cells deleting

[Macuil0101]

Hello,
once again i need your precious help.
I don't know which is the best way to explain it so i'll attach a screenshot of the situation and refer to it.

I need to delete the empty cells of a row moving the below cells up, when the upper cell linked by the line is empty(green line), while skip the operation where there's something in that cell(red line). The code should be automatic and sequential for all the row of the sheet.
Thank you very much!

[Macuil0101]

If it isn't clear or you think it's impossible, please let me know!

[Macuil0101]

Maybe I have found a solution but I can't get to it:
I have used the funcion IF to give the cells given value respect to the adiacent cell, then by using the following macro i select the values corresponding the right cell:

Please Login or Register  to view this content.

What i need is that the macro also select the adiacent 3 cells to the right so that i can delete them an move the cells up! I've tried to use offset in the MyRange.Select but it only select the first entry!