入力シートから合計シートを選択した際にピボットの集計が即反映されたら作業効率が上がります。
コードの表示からVBAの画面を開き現金合計のシートタブがアクティブになったらピボットの更新が行われるマクロです。

'Sub MACRO()
Private Sub Worksheet_Activate() 'あるシートがアクティブになったら自動実行
With Sheets("現金合計") '対象シート
Dim pvt As PivotTable
For Each pvt In ActiveSheet.PivotTables
pvt.PivotCache.Refresh
Next
End With '対象シート件おわり
End Sub
