Need to find text in column U and move it 19 columns to the left

Something like this?

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

No, that would copy the blanks and paste over program commands in Col.B.

I've included a sample file which shows the existing condition and how it should end up.
The text which needs to move has been formatted red.