Something like this?

Sub copyU2B()
    Range("U:U").Copy Range("B:B")
    Range("U:U").Delete
End Sub