[okshef]

sov44, решение макросами:
Alt+F11
в код листа 1 вставьте

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
        If Intersect(Target, [C5]) Is Nothing Then Exit Sub
            Application.EnableEvents = False
            first = [a5]
            first = first + Target.Value
            [a5] = first
10  Application.EnableEvents = True
End Sub

В код листа 2 вставьте

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
        If Intersect(Target, [A4]) Is Nothing Then Exit Sub
            Application.EnableEvents = False
            first = Worksheets(1).[a5]
            first = first + Target.Value
            Worksheets(1).[a5] = first
10  Application.EnableEvents = True
End Sub

Сохраните файл в книгу с поддержкой макросов (расширение xlsm). Пользуйтесь