вычисление всех компонентов в относительно простой макрос

Question

Я пытаюсь понять, что на самом деле делает следующее:

Sub ZoneTarget()
'
' Macro1 Macro
'

'
Dim myTarget As Variant

Sheets("Zones").Select

For i = 3 To 30
    myTarget = Cells(i, 20).Value
    If myTarget = "" Then
        Exit For
    End If
'    Application.CutCopyMode = False
'    Cells(i, 18).GoalSeek Goal:=myTarget, ChangingCell:=Cells(i, 8)
    If Cells(i, 21).Value < -0.05 / 100 Or Cells(i, 21).Value > 0.05 / 100 Then
        Cells(i, 8).Value = Round(Cells(i, 8).Value * (1 + Cells(i, 21).Value), 6)
    End If
Next i

End Sub

Я изменил лист, и теперь макрос больше не работает. Как только я выясню, что делается, я надеюсь, что обновлю нужную часть, чтобы она снова заработала.

Из того, что я могу сказать, должно произойти следующее:

На вкладке "Зоны" В строках с 3 по 30 В колонке 20 (Т) Но только до строки, в которой столбец T не пустой

Где столбец 21 (U) в указанных строках либо меньше -0,05, либо больше 0,05 Затем значение в столбце 8 (H) следует умножить на одно плюс значение в столбце 21 (U) Это значение должно быть округлено

Я не уверен, что мне здесь не хватает, но когда я запускаю макрос, он ломается.

Любая помощь будет оценена.