how to Move Column A data to Column B

I would like a macro that looks to see if Column A has data and if it does, move it to column B. (If Column A has data, then Column B will be empty.) If column A does NOT have data, I don't want anything to happen (because Column B will have data then).

Before
A B C D
Wednesday
ARK School 9:00am 9:00am

SG mtg 1:00pm 1:00pm
FUEL! 7:00pm 7:00pm
VIEW 7:00pm 7:00pm

After
A B C D
Wednesday
ARK School 9:00am 9:00am

SG mtg 1:00pm 1:00pm
FUEL! 7:00pm 7:00pm
VIEW 7:00pm 7:00pm

Hi, There are multiple ways of doing this but the simplest is shown in the code below

Please Login or Register  to view this content.

It simply looks at each cell from 1 to 1000 and if empty moves to the next row. If Cell(Ai) has data. it copies the data to Cell(Bi) and clears the content of Cell(Ai). Change the row numbers to suit your data range. Hope this helps.
Regards

NoClass1980

Thanks a lot!

You';re welcome, can you mark thread as solved and give feedback. Thanks

I did both things....but I'm new at this. Hope it worked. I see [SOLVED] on my web browser tab