Pivot table verilerini yenileme excel vba kodu

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.PivotTables("PivotTable4").RefreshTable
End Sub