Macro for Moving every even cell

[dtatdm]

Hi All, was wondering whether anyone would be able to help.

I am looking for a macro/VB of how to move every even cell (see attached) to another cell.

For example on the image, A252 to B251 which can be done with a click of a button. This would be a huge time saver for me, as I am having to cut and paste ever cell at the moment and i'm sure there are some genius's here who are just laughing at me! lol

Capture.PNG

if anybody can help, I would greatly appreciate it.

Wayne

[Arkadi]

Hi Wayne,

Not a problem, but we need to know are there headers, etc.... it would be best if you attach a sample workbook:


Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

I'm also curious whether you would want those blank rows removed as well.

[Fluff13]

Hi & welcome to the board.
How about

Please Login or Register  to view this content.

[dtatdm]

Hi Arkadi, yes we would need the blank rows removing as well.

Thankyou

[MrGes]

Hi,
try this

Please Login or Register  to view this content.

[sintek]

Something like this should work...

Please Login or Register  to view this content.

[Fluff13]

Modified version of my code to remove the blank rows

Please Login or Register  to view this content.

[dtatdm]

You guys are genius! you've just saved me hours and hours of work! thank you so much xx

[Fluff13]

You're welcome & thanks for the feedback