need help with moving cells to another column

You will need a macro.

Right Click on your sheet name at the bottom of excel and select view code.

Paste this into the module that opens and close it.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
Application.EnableEvents = False
t = Range("B1").Value
Application.Undo
Range("A1").Value = Range("B1").Value
Range("B1").Value = t
Application.EnableEvents = True
End Sub