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
        End If
    Next lngLoopCtr
    Application.ScreenUpdating = True
End Sub


Answer the Question

You must create an account to use the forum. Create an Account or Login