重复重组表excel vba

Question

我一直在尝试创建一个vba代码来重建一个包含信息的表。代码应该做的是：

在G列中查找第一个无空和非0单元格，并将该值复制到C列中的第一个#N / A.最后重新计算C列中找到的第一个单元格的行。这是我的代码。    

 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.等。 任何人都可以帮助我吗？