如何更改此VBA，使其在删除行时不返回错误？

Sub DeleteRows()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = lastRow To 1 Step -1
        Rows(i).Delete
    Next i
End Sub

Sub DeleteRows()
    Dim rngToDelete As Range
    Dim cell As Range
    
    For Each cell In Range("A1:A10") '将要删除的行范围
        If cell.Value = "要删除的条件" Then
            If rngToDelete Is Nothing Then
                Set rngToDelete = cell
            Else
                Set rngToDelete = Union(rngToDelete, cell)
            End If
        End If
    Next cell
    
    If Not rngToDelete Is Nothing Then
        rngToDelete.EntireRow.Delete
    End If
End Sub