Locate Specific Text and Delete the Entire Row

Hello,

I have a macro written where the process works except for my last few steps, what I would like to do at the end is locate any of the following strings (please note these digits are imbedded in a longer number string - ex. 12-300-22000-5678 in Column V and delete the entire row once found....
22000
22005
22025
60-

Here is my macro

Sub ConcurExtractError()
'
' ConcurExtractError Macro
'
' Keyboard Shortcut: Ctrl+c
'
    Sheets("Concur Extract Errors").Select
    ActiveWindow.SmallScroll Down:=-12
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("E6").Select
    ActiveWindow.SmallScroll Down:=-3
    Columns("M:M").Select
    Selection.Replace What:="", Replacement:="No Description", LookAt:=xlPart _
        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("V24").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    Columns("W:W").Select
    Selection.Replace What:="", Replacement:="Delete", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("V13").Select
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Cells.Select
    ActiveSheet.Range("$A$1:$Z$341").RemoveDuplicates Columns:=22, Header:=xlNo
    Range("M13").Select
    ActiveWindow.SmallScroll Down:=-12
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    Range("M14").Select
    ActiveWindow.SmallScroll Down:=-12
    If .Value = "20000" Then .EntireRow.Delete
    If .Value = "22005" Then .EntireRow.Delete
    If .Value = "22025" Then .EntireRow.Delete
    If .Value = "60-" Then .EntireRow.Delete
    
End Sub

Thank you very much