формулы Excel не обновляются после обработки кода VBA

Question

У меня проблема с Excel, не обновляющим формулы после первой обработки кода.

Код реагирует, если ячейка была изменена. Если значение ячейки изменилось (существующая формула в ячейке и я добавляю 500 fe), то это добавляет разницу к другой формуле ячейки. Я понятия не имею, как добавить разницу в ячейку с существующей формулой в качестве дополнения, поэтому я поместил ее в виде строки в коде. Код работает впервые, но когда я пытаюсь добавить другое значение, он возвращает 0 и любые другие формулы также возвращают 0. Вот код:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim x As Range
Dim y As Range
Dim sumx As Range
Dim sumy As Range
    Set y = Range("D6:D7")
    Set x = Range("D2:D3")
    Set sumx = Range("G4")
    Set sumy = Range("G6")
    Application.ScreenUpdating = False
        If sumy > Application.Sum(y) Then
               Range("F1").Formula = "=SUM(D2:D3)+" & (sumy - Application.Sum(y))
        End If
    Application.ScreenUpdating = True
End Sub 

Есть ли что-то в моем коде что вызывает эту проблему? Кроме того, если есть что уточнить, я открыт для предложений.