Speedup VBA and Apply to all visible sheets

Originally Posted by gmr4evr1

You are selecting a "range" of columns, then activating a specific cell, then selecting another range of columns and activating another specific cell. Looks to me as if all that is unnecessary.

   Range("BH1").Delete Shift:=xlToLeft
    Columns("A:A").Delete Shift:=xlToLeft
    Range("E12").Select

@gmr4evr1, I think you are misunderstanding what the macro recorder produces.
If you turn on the recorder then hold down Ctrl and select a few columns (say for instance A,D,F) then you will find that it produces an Activate line which is the first cell of the last column selected (in the case of A,D,F it would produce the below code).
The Column is still selected.

Sub Macro1()
    Range("A:A,D:D,F:F").Select
    Range("F1").Activate
End Sub