Delete Row If Contains Any Letter A-Z.

Try this,

Option Explicit

Sub ParseData()
    Dim rCell            As Range
    Dim cel
    Dim x                As Range
    

    Application.ScreenUpdating = False
    
    With CreateObject("vbscript.regexp")
        .Global = True
           For Each rCell In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
            .Pattern = "[a-zA-Z]"
            Set cel = .Execute(rCell)
             Debug.Print cel.Count
             If cel.Count <> 0 Then
                If x Is Nothing Then
                  Set x = rCell
                Else
                  Set x = Union(x, rCell)
                End If
             End If
        Next rCell
    End With
      x.EntireRow.Delete
    Application.ScreenUpdating = True
End Sub

Edit: Never mind nilem has sorted you out.