vba delete do while

Sub DeleteRows()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    Dim i As Long
    i = 1
    
    Do While i <= ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        If ws.Cells(i, "A").Value = "Delete Me" Then
            ws.Rows(i).Delete
        Else
            i = i + 1
        End If
    Loop
End Sub

Sub SafeDeleteRows()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    Dim i As Long
    i = 1
    
    Do While i <= ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        On Error Resume Next
        If ws.Cells(i, "A").Value = "Delete Me" Then
            ws.Rows(i).Delete
        End If
        On Error GoTo 0
        i = i + 1
    Loop
End Sub