Как я могу исправить проблему присваивания Range.Value в Excel

Question

У меня есть некоторый код VBA для пересчета промежуточных итогов в событии изменения рабочего листа.Промежуточные итоги затем присваиваются соответствующим ячейкам.Код ниже работает, но значения ячеек не обновляются.Когда я помещаю его в отладчик и выполняю код, FreightTotal и OtherTotal вычисляются правильно и rw ссылается на правильную строку.Значение в двух переменных не присваивается ячейкам.Я понятия не имею, что происходит, оно должно работать.

    Sheet1.Range("H" & rw).Value = FreightTotal
    Sheet1.Range("J" & rw).Value = OtherTotal

Вот полный цикл if:

If Target.Column = 8 Then
    For rw = 11 To 36
        If Range("A" & rw).Value = "Total" Then
            i = rw - 1
            FreightTotal = 0
            OtherTotal = 0
            Do While Range("BA" & i).Value = Range("BA" & rw).Value
                FreightTotal = FreightTotal + Range("H" & i).Value
                OtherTotal = OtherTotal + Range("J" & i).Value
                i = i - 1
            Loop
            Sheet1.Range("H" & rw).Value = FreightTotal
            Sheet1.Range("J" & rw).Value = OtherTotal
        End If
    Next
End If