Contour Graphs

Would this be correct?

Sub Dynamic_Table()
    
Dim RowC, Colc As Integer
Dim CRow, CCol As Integer
Dim i As Integer
Dim lngCalcMode As XlCalculation
Dim SupName As String

Application.ScreenUpdating = False
lngCalcMode = Application.Calculation
Application.Calculation = xlCalculationManual

'Delete the Data from "Data for Pivot"

With Sheets("Data for Pivot")
    .Range("A3", .Range("A3").End(xlDown)).Clear
    .Range("A3", .Range("A3").End(xlDown)).NumberFormat = "dd/mm/yyyy hh:mm"
End With

' Dynamically count Data in BBG Raw Data sheet

With Sheets("BBG Raw Data")
    .Range("A4", .Range("A4").End(xlDown)).Copy
    Sheets("Data for Pivot").Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End With

Application.ScreenUpdating = True
Application.Calculation = lngCalcMode

' Also update the chart

X_Axis_Scale

End Sub

It's in automatic except data tables. It seems to be working. The only issue is that my original worksheet (this is a condensed version) is very large and thus it takes quite a bit of time everytime the data tables recalculate. is there a way to make the recalculation of the data tables go faster? Or to have the data tables not recalculate upon saving the worksheet?