我收到next，但没有错误，来自：

Sub CTLines()
Dim iVal As Integer
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim rng As Range
    
Set ws1 = Worksheets("INCIDENTS")
Set ws2 = Worksheets("INCDB")
    
iVal = Application.WorksheetFunction.CountIf(Range("AO5:AO999"), "Yes")
    
Dim i
    
For i = 1 To iVal
    With Sheets("INCDB")
        .Range("5:5").Insert Shift:=x1Down
Next i
End Sub

我试过改变变量，缩进，很多东西，我都没有成功。
我所要做的就是计算AO列中有多少行包含Yes，并在INCDB电子表格中添加同样多的行。