Copy Data from Column and Paste to Next Blank Column on 2nd Sheet

Thy this:

Sub MoveB1B20
        Sheets("sheet1").Range("b1:b20").Cut _
        Destination:=Sheets("sheet2").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
End Sub