Move data in rows ignoring blanks

Hi everyone,

I'm looking for a macro to remove the blanks between two set of data in every single row.

It's always two cells with data in every row, but the first data in the row should be fixed.

For example, in row 2 of the attached file, I have data in column A and column G, I want to move the data of column G to column B. But in row 3 the data si in column B and I, so I want to move it to column C, and so on.

Thank you in advance for your help. Move between rows.xlsx

Thanks tigeravatar, works great!