Thank you. Does that command automatically update the worksheet. Do I add the code by clicking on the worksheet and view code and just past it in.
Sub PivotMacro()Dim pt As PivotTableSet pt = ActiveSheet.PivotTables("MyPivot")pt.RefreshTableEnd Sub

Also I am using the offset function for the dynamic data but it does not seem to be working. =OFFSET(Inventory!$A$1,0,0,COUNTA(Inventory!$A:$A) ,13) My spreadsheet it large and I am going to keep adding to it. I want all the information to be in the pivot table. Thank you for your help.