Try this. I think your code can be shortened and simplified a little and I have taken the liberty.
Option Explicit
Sub Dynamic_Table()
Dim RowC, Colc As Integer
Dim CRow, CCol As Integer
Dim i As Integer
Dim SupName As String
Application.ScreenUpdating = False
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 = xlCalculationAutomatic
End Sub
Bookmarks