Move data

[deze]

I have written this module and it does what I want but I also would like it to move to A4 and do the same, then move to A6 and do the same, until there is no data in column 1. Is there a way to automate this?

Sub move_cells()
Range("A2").Cut Destination:=Range("B1")
End Sub

here is a sample of my data

Column A
47.*Instant Coffee
If you’re hooked on coffee (like I am), then you’re liable to go crazy when your coffee pot won’t turn on.
48. ****** Pools
You’re better off getting these at a flea market or yard sale. Believe it or not, there are*all sorts of things*you can do with them.
49.*Landline Phone
If the power goes out, a simple landline phone will continue to work.
50.*Maps of Local Areas
Most of us have gotten used to relying on Google Maps and GPS, but those could become things of the past. Paper maps never stop working.

This is what I would like it to look like

Column A Column B
Instant Coffee If you’re hooked on coffee (like I am), then you’re liable to go crazy when your coffee pot won’t turn on.

****** Pools You’re better off getting these at a flea market or yard sale. Believe it or not, there are*all sorts of things*you can do with them.

Landline Phone If the power goes out, a simple landline phone will continue to work.

[protonLeah]

Please Login or Register  to view this content.

[deze]

Thank you for your reply.

This worked for a2 but then it moved all the data from column a to column b. What I also need it to do is move data from a4 to b3, a6 to b5, a8 to b7, etc

[protonLeah]

Sorry, missed that...

Please Login or Register  to view this content.

[deze]

Thank you