Excel VBA根据条件添加行，不满足条件时停止失败

Sub AddRowsBasedOnCondition()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行开始向上遍历
    For i = lastRow To 2 Step -1
        ' 判断条件，如果满足条件则添加一行
        If ws.Cells(i, "A").Value = "条件" Then
            ws.Rows(i + 1).Insert Shift:=xlDown
        End If
    Next i
End Sub