Selectively refresh pivot table

[chetu]

I have two pivot tables, but when my macro refreshes the pivot tables it refreshes all, but I want it to pick say for example;

Say range "B8" of pivot table 1 is 60, I want the range "x2" of pivot table 7 also to pick 60 and then refersh it. Below is the coding which I have done, can anyone help?

Range("B8").Select
    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
    Range("B31").Select
    ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
    Range("B54").Select
    ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
    Range("B77").Select
    ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
    Range("B100").Select
    ActiveSheet.PivotTables("PivotTable5").PivotCache.Refresh
    Range("B129").Select
    ActiveSheet.PivotTables("PivotTable6").PivotCache.Refresh
    Range("X2").Select
    ActiveSheet.PivotTables("PivotTable7").PivotCache.Refresh
    Range("X24").Select
    ActiveSheet.PivotTables("PivotTable8").PivotCache.Refresh
    Range("X49").Select
    ActiveSheet.PivotTables("PivotTable9").PivotCache.Refresh
    Range("X76").Select
    ActiveSheet.PivotTables("PivotTable10").PivotCache.Refresh
    Range("X101").Select
    ActiveSheet.PivotTables("PivotTable11").PivotCache.Refresh
    Range("AM5").Select
    ActiveSheet.PivotTables("PivotTable12").PivotCache.Refresh
    Range("AM29").Select
    ActiveSheet.PivotTables("PivotTable13").PivotCache.Refresh
    Range("AM59").Select
    ActiveSheet.PivotTables("PivotTable14").PivotCache.Refresh
    Range("AM89").Select
    ActiveSheet.PivotTables("PivotTable15").PivotCache.Refresh
    Range("AM115").Select
    ActiveSheet.PivotTables("PivotTable16").PivotCache.Refresh
    MsgBox ("Please proceed to updating the layout rotation")
 
End Sub

Thanks a Mill!