Delete Row if column A contains non-numeric data or is blank

Dim Arr As Variant
Dim Rng As Range
Dim i as Long
Arr = Array(xlCellTypeBlanks, xlCellTypeConstants)
For i = 0 To UBound(Arr)
Set Rng = Columns("A:A").SpecialCells(Arr(i), 22)
    If Not Rng Is Nothing Then
        Rng.EntireRow.Delete
    End If
Next i

Sub DelTest()
    Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Columns("A:A").SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Delete
End Sub

Dim Rng As Range, C As Range
Dim Lr As Long
Lr = Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Range("A1:A" & Lr)

Application.ScreenUpdating = False
    For Each C In Rng
        If Not IsNumeric(C) Then
            C.EntireRow.Delete
        End If
    Next C
Application.ScreenUpdating = True

Dim deleteRange As Range
With ThisWorkbook.Sheets("sheet1").Range("A:A")
    On Error Resume Next
      Set deleteRange = .SpecialCells(xlCellTypeBlanks)
      Set deleteRange = .SpecialCells(xlCellTypeConstants, xlErrors + xlTextValues + xlLogical)
      Set deleteRange = Application.Union(deleteRange, .SpecialCells(xlCellTypeBlanks))
      deleteRange.EntireRow.Delete
    On Error GoTo 0
End With