Brazen,
How about this?
Save this function in your personal.xls, create a button to trigger it
( like you said in your first post)
and you've got it!

Function MoveIt()
intAnswer = InputBox("Move over how many cells, 1 or 2?")
With ActiveCell
.Offset(0, intAnswer).Value = .Value
.Value = ""
End With
End Function

Of course, by now, you could have done the whole list by hand!!! ; )
Alan