Sub MoveColumn() Columns("E2:E65536").SelectSelection.CutSheets("Sheet2").SelectColumns("F2:F65536").SelectActiveSheet.Paste End Sub