VBA: Refresh all pivot tables when I delete lines in my dataset

[DECOVIOTI]

Hello Guys
I have in my excel spreadsheet a high number of pivot tables and a worksheet called "Data". I would like to know if is possible after delete some lines in this Data tab, if the all pivot tables can be refreshed automatically.
Can you pls help me?

 

[ExcelGzh]

This is the code I have for the Worksheet_Activate event for any sheet that has a pivot table. Unless you have some cells somewhere else that use the data in the pivot tables, there is no need to update them until you go to a sheet that has pivot tables. If you do have dependent cells then you will have to attach the RefreshAll command to some other event such as Worksheet_Change.

Private Sub Worksheet_Activate()
  'Pivot tables don't update automatically.  This forces an update when the user goes to this sheet.
  ThisWorkbook.RefreshAll
End Sub