delete row based on criteria

The code below worked for the small sample data provided.

Option Explicit
Sub TEST()
    Dim CharPos     As Long, _
        RowCount    As Long, _
        TestRow     As Long
    
    RowCount = Cells(Rows.Count, "A").End(xlUp).Row
    
    For TestRow = RowCount To 1 Step -1
        
        CharPos = 0
        Do
            CharPos = CharPos + 1
        Loop While (CharPos < Len(Range("A" & TestRow).Value) And (Asc(Mid(Range("A" & TestRow).Value, CharPos, 1)) - 91 > 0))
        If CharPos = Len(Range("A" & TestRow).Value) Then
            'Debug.Print Range("A" & TestRow).Value
            Range("A" & TestRow).EntireRow.Delete
        End If
    Next TestRow
End Sub