重复调整表格excel vba

我一直在尝试创build一个vba代码来重build一个表中的信息。 代码应该做的是以下几点：

在第G列寻找第一个没有空和非零的单元格，并将该值复制到列C中的第一个＃N / A。最后重新计算在C列中find的第一个单元格的行。这是我的代码。

i = 3 For i = 3 To 79 If Cells(i, 7).Value > 0 And Cells(i, 7).Value <> "" Then MovingValue = Cells(i, 7).Value Cells(i, 7).Copy j = 3 For j = 3 To 4 If Cells(j, 3).Text = "#N/A" Then Exit For Cells(j, 3).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Cells(i, 3).FormulaLocal = "=VLOOKUP(B" & (i) & ";'Cleaning step 2'!B:C;2;0)-" & MovingValue Next j End If Next i 

我无法做到的是，在完成这个循环之后跳出代码重做一个新的运行。 重新检查列G为第一个非空和非0.等任何人都可以帮助我吗？