目标在Excel工作表中没有公式的Seek-esquemacros？

我有一个工作表，从外部来源的数据列和一个macros，然后使用该数据来计算和填充工作表中的其他列。 每行的计算输出取决于上面的行的值。 最后，我想通过更改第一个单元格之一中的input数据，将最后一行中的一列值设置为零。 如果这都是Excel公式，那么我可以做一个简单的目标search，但是所有的计算都是以vba进行的。

我是新来的vba，所以我不知道我问的是甚至可能的。 这里是我的macros如何计算的例子：

Public Sub Calculate() i = 2 Do While Cells(i, 3) <> "" Cells(i, 31).Value = Cells(i, 30) / (1 + Cells(i, 61)) Cells(i, 28).Value = -Cells(i, 14) * Cells(i, 31) Cells(i, 27).Value = (-Cells(i, 26) * Cells(i, 2)) Cells(i, 32).Value = Cells(i, 15) + Cells(i, 2) + Cells(i,27) Cells(i, 29).Value = Cells(i, 61) * (Cells(i, 15) + Cells(i, 2) Cells(i, 61).Value = (Cells(i, 60) + 1) Cells(i, 62).Value = (Cells(18, 3) + 1) Cells(i + 1, 15).Value = Cells(i, 32) Cells(i + 1, 16).Value = Cells(i, 33) i = i + 1 Loop End Sub 

基本上，列32（AF）的最后一行的值取决于列2（B）的第一行的值。 所以我想根据这些计算来改变B2的值使AF500 = 0。 我很乐意避免在表格中使用公式，所以我希望这是可能的。 感谢您花时间阅读，并为可怕的代码感到抱歉。