Code Optimization

[adyan76]

I have the following piece of code that works for 4 sheets. The problem is first everything is saved under clipboard imean these copy and paste actions, instead of using application.cutcopymode=false. The rest of my code which is not listed here is very quick, but here the macro invests too much time. How can i make the macro run faster?

Thanks for your responses

    Columns("A:A").Select
    Selection.EntireColumn.Hidden = True
    Columns("F:F").Select
    Application.CutCopyMode = False
    Selection.Copy
    Application.CutCopyMode = False
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Columns("G:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("H:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("M:M").Select
    Selection.Copy
    Columns("I:I").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Columns("N:N").Select
    Selection.Delete Shift:=xlToLeft
    Columns("Q:Q").Select
    Selection.Copy
    Columns("J:J").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Columns("R:R").Select
    Selection.Delete Shift:=xlToLeft
    Columns("R:R").Select
    Selection.EntireColumn.Hidden = True
   Columns("V:W").Select
    Selection.EntireColumn.Hidden = True
    Columns("O:O").Select
    Selection.EntireColumn.Hidden = True
    Columns("AG:AI").Select
    Selection.EntireColumn.Hidden = True
   Columns("AK:AK").Select
    Selection.EntireColumn.Hidden = True
    Range("B1").Activate
    Columns("AN:AS").Select
    Selection.EntireColumn.Hidden = True
    Columns("AU:CH").Select
    Selection.EntireColumn.Hidden = True
    Columns("CL:CL").Hidden = True
    Range("B1").Activate
 '**********************************************************************************'
          
          Range("S:T,AJ:AJ,CI:CK,U:U,AB:AB").Select
          Selection.EntireColumn.Hidden = False