Speedup VBA and Apply to all visible sheets

Dear Experts!

I have recorded a macro for some cleaning/formatting purpose which will rearrange my excel sheet. I need to run this macro on every visible sheets and speedup the process.

Can anyone help me in this regards.

Sub RunMetoClean()

Application.DisplayAlerts = False
Application.EnableEvents = False
Application.ScreenUpdating = False

    Range("F:H,J:L,N:P,R:T").Select
    Range("R1").Activate
    Range("F:H,J:L,N:P,R:T,V:X,Z:AB,AD:AF,AH:AJ").Select
    Range("AH1").Activate
    Range("F:H,J:L,N:P,R:T,V:X,Z:AB,AD:AF,AH:AJ,AL:AN,AP:AR,AT:AV,AX:AZ,BB:BD"). _
        Select
    Range("BB1").Activate
    Range( _
        "F:H,J:L,N:P,R:T,V:X,Z:AB,AD:AF,AH:AJ,AL:AN,AP:AR,AT:AV,AX:AZ,BB:BD,BH:BS"). _
        Select
    Range("BH1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("U23").Select
  Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Range("E12").Select
    Columns("B:B").Select
'    Application.Run "modPaste.Copy"
 Selection.Copy
    Columns("C:C").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Columns("B:B").Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Range("E12").Select
    
     Rows("1:11").Select
    Range("A11").Activate
    Selection.Delete Shift:=xlUp
    Rows("1:4").Select
    Selection.Insert Shift:=xlDown
    Range("C8").Select
    ActiveWindow.SmallScroll Down:=-9
    
    Application.DisplayAlerts = True
    Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub