Assist in modifying code to locate an exact phrase in a cell

Hello, I need help with the below code to find exactly what's listed. Right now if it finds that in any cell in the row it deletes the row (which worked wonderfully for what I needed it to do before). I need to make it find the exact phrase. Usually it's located in column A, once in a while it may be in column B.

If a sample sheet is needed please advise. It'll take me some time to 'clean up' the data for public posting.

Edit! - What happens is we have locations such as "A-A-0" and "NA-A-0". I need this code to find just the A-A-0 one and not delete the NA location too.

Dim rng As Range
 Dim what(50) As String

Application.ScreenUpdating = False

    
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(10, 1), Array(22, 1), Array(30, 1), Array(35, 1), _
        Array(66, 1), Array(73, 1), Array(77, 1), Array(87, 1), Array(92, 1), Array(101, 1), Array( _
        109, 1)), TrailingMinusNumbers:=True
    Columns("A:A").EntireColumn.AutoFit
    Range("C:C,D:D,E:E,F:F,H:H,I:I,L:L").Select
    Range("L1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("1:7,65:73,131:139,197:205,263:271,329:337,395:403,461:469,527:535,593:601,659:667,725:733,791:799,857:865,923:931,989:997").Select
    Selection.Delete Shift:=xlUp
    Columns("A:A").Select
    Selection.Cut
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Range("A1").Select
    Range("A1:E2000").Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range _
        ("B1"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
    ActiveCell.SpecialCells(xlLastCell).Select
    Range("A1").Select
    
what(1) = "A-A-0"
what(2) = "A-A-1"
what(3) = "A-A-2"
what(4) = "A-B-0"
what(5) = "A-B-1"
what(6) = "A-B-2"
what(7) = "A-C-0"
what(8) = "A-C-1"
what(9) = "A-C-2"
what(10) = "A-D-0"
what(11) = "A-D-1"
what(12) = "A-D-2"
what(13) = "A-E-0"
what(14) = "A-E-1"
what(15) = "A-E-2"
what(16) = "A-F-0"
what(17) = "A-F-1"
what(18) = "A-F-2"
what(19) = "B-A-0"
what(20) = "B-A-1"
what(21) = "B-A-2"
what(22) = "B-B-0"
what(23) = "B-B-1"
what(24) = "B-B-2"
what(25) = "B-C-0"
what(26) = "B-C-1"
what(27) = "B-C-2"
what(28) = "B-D-0"
what(29) = "B-D-1"
what(30) = "B-D-2"
what(31) = "B-E-0"
what(32) = "B-E-1"
what(33) = "B-E-2"
what(34) = "B-F-0"
what(35) = "B-F-1"
what(36) = "B-F-2"
what(37) = "C-A-0"
what(38) = "C-A-1"
what(39) = "C-A-2"
what(40) = "C-B-0"
what(41) = "C-B-1"
what(42) = "C-B-2"
what(43) = "C-C-0"
what(44) = "C-C-1"
what(45) = "C-C-2"
what(46) = "C-D-0"
what(47) = "C-D-1"
what(48) = "C-D-2"
what(49) = "C-E-0"
what(50) = "C-E-1"

      For i = 1 To 50
      Do
       Set rng = ActiveSheet.UsedRange.Find(what(i))
       If rng Is Nothing Then
           Exit Do
       Else
           Rows(rng.Row).Delete
       End If
       Loop
       Next i
       
          Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "LOCATION"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "HAWB"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "DEST"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "PCS"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "STATUS"
    Range("A1:E1").Select
    Selection.Font.Bold = True
Application.ScreenUpdating = True

The full code was too long, had to delete some but changed the macro to make it work if you try to run it!

If it's just a simple character addition I'll be pretty darn satisfied

My mistake, hopefully the edited title works for the forum rules. I should have known better than to use generalized titles anyway!

Maybe like this:

    Dim v As Variant
    Dim r As Range

    With ActiveSheet.UsedRange
        For Each v In Split("A-A-0,A-A-1,A-A-2,A-B-0,A-B-1,A-B-2,A-C-0,A-C-1,A-C-2,A-D-0," & _
                            "A-D-1,A-D-2,A-E-0,A-E-1,A-E-2,A-F-0,A-F-1,A-F-2,B-A-0,B-A-1," & _
                            "B-A-2,B-B-0,B-B-1,B-B-2,B-C-0,B-C-1,B-C-2,B-D-0,B-D-1,B-D-2," & _
                            "B-E-0,B-E-1,B-E-2,B-F-0,B-F-1,B-F-2,C-A-0,C-A-1,C-A-2,C-B-0," & _
                            "C-B-1,C-B-2,C-C-0,C-C-1,C-C-2,C-D-0,C-D-1,C-D-2,C-E-0,C-E-1", ",")
            Set r = .Find(what:=v, LookAt:=xlWhole)
            
            Do Until r Is Nothing
                Rows(r.Row).Delete
                Set r = .FindNext
            Loop
        Next v
    End With

There should be a comma in the text string at the end of each line, as corrected in my prior example.