hello
i no know what's wrong about this code it should copy specific columns from sheet to another but nothing happend and no error
i hope somebody help me to solve this problem
Sub COPY_6_COLUMNS()
Application.ScreenUpdating = False
With Sheets("invent")
For MY_COLS = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
Select Case .Cells(1, MY_COLS).Value
Case "A", "c", "d", "e"
.Columns(MY_COLS).Copy
If IsEmpty(Sheets("output").Cells(1, Columns.Count).End(xlToLeft).Value) Then
Sheets("output").Cells(1, Columns.Count).End(xlToLeft).PasteSpecial (xlPasteAll)
Else
Sheets("output").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial (xlPasteAll)
End If
End Select
Next MY_COLS
End With
Application.ScreenUpdating = True
End Sub