Hi Experts,

I have created a dashboard (normal table lookalike) in excel "Sheet1" representing the values from couple of other open workbooks. However to show those values it takes lot of calculation which I have done through formulas and using VBA to paste those formulas. There are 52 different formulas few are very long and it takes 12 seconds for VBA to paste those formulas in the different ranges. Below is example how I am doing.

Is there anyway to reduce run time of the macro? I am sure VBA masterminds here must be having some workaround.

Sub Macro2()


    'On Error GoTo Terminate
    
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    With Worksheets("Sheet1").Range("B17:S17")
        .Formula = "FORMULA_1"
        .Value = .Value
    End With
    
    With Worksheets("Sheet1").Range("B19:S19")
        .Formula = "FORMULA_2"
        .Value = .Value
    End With

    With Worksheets("Sheet1").Range("AH20:AY20")
        .Formula = "FORMULA_3"
        .Value = .Value
    End With

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With

End Sub
Charm!