找出一个相对简单的宏的所有组件

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） 但是直到T列不为空的行为止

其中在所述行中的第21列（U）小于-0.05或大于0.05 然后，将第8列（H）中的值乘以第21列（U）中的加号。 该值应四舍五入

我不确定我在这里缺少什么，但是当我运行宏时，它会中断。

任何帮助将不胜感激。