Need a macro to delete anything with numeric value

I have the below Macro and it works except I need to add to the line that is deleting info based on a value.  I need the macro to delete the row if it contains a numberic or date value.  below is my macro

Sub deleteresident()
         Dim lngLoopCtr As Long
    
    Application.ScreenUpdating = False
    For lngLoopCtr = 800 To 15 Step -1
        If UCase(Cells(lngLoopCtr, "b")) = "EMPTY" Or UCase(Cells(lngLoopCtr, "b")) = "RESIDENT" Or UCase(Cells(lngLoopCtr, "b")) = "" Then
            Rows(lngLoopCtr).EntireRow.Delete
        End If
    Next lngLoopCtr
    Application.ScreenUpdating = True
    
End Sub