VBA to refresh pivot table if cell values changes

Please suggest me a VBA to refresh pivot table if any value in cells R2 or S2 changes.
I am using the following VBA but some times apart from 4 pivot 1 is not refreshing.



Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R2,S2")) Is Nothing Then
PivotTables(1).RefreshTable
PivotTables(2).RefreshTable
PivotTables(3).RefreshTable
PivotTables(4).RefreshTable
End If
End Sub

Does the data in pivot 1 depend on the new data in pivot 2,3,4? You may have to refresh twice if this is the case.