Sub MoveColumn()
 
Columns("E2:E65536").Select
Selection.Cut
Sheets("Sheet2").Select
Columns("F2:F65536").Select
ActiveSheet.Paste
 
End Sub