Pivot table not updating - VBA

[Bryan123]

Hi All,

Hope you can help me.
I'm trying to automate the creation of pivot table. However, when there's new data, it does not capture when running the program again.
Here is the code:
Sheets("QA Error Correction Tracker").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"QA Error Correction Tracker!R1C1:R241C13", Version:=6).CreatePivotTable _
TableDestination:="Pivot!R2C1", TableName:="PivotTable1", DefaultVersion _
:=6
Thank you