没分也要问！为啥goto语句不执行？

Question

代码如下。
逐行运行发现，当满足第一个IF条件的时候，执行第一个goto语句。循环之后，当遇到满足第二个和第三个IF的条件的时候，他们后面的goto语句都不执行。这是为啥？
请各位高手指点一下~
谢谢啦~~~~~~Sub part2_insert()   Dim i As Variant
   i = 2
   While Trim(Worksheets("sheet1").Range("A" & i + 1).Value <> vbNullString)
      If Worksheets("sheet1").Range("D" & i + 1).Value <> Worksheets("sheet1").Range("D" & i).Value Then
           GoTo newloop
      Else
        If Worksheets("sheet1").Range("O" & i).Value > 5 Then
           GoTo newloop
        Else
           If Worksheets("sheet1").Range("C" & i + 1).Value = Worksheets("sheet1").Range("C" & i).Value + 1 Then
           GoTo newloop
           Else 
           Worksheets("sheet1").Rows(i + 1 & ":" & i + 1).Select: Selection.insert Shift:=xlDown
           End If
        End If
      End If
newloop: i = i + 1
   Wend
 End Sub

Answer 1

While Trim(Worksheets("sheet1").Range("A" & i + 1).Value <> vbNullString)
写的不合适吧
应该是
While Trim(Worksheets("sheet1").Range("A" & i + 1).Value) <> vbNullString