I am have a macro that takes out junk sales based on item # (column A). As you can see by the code below, there are a lot of junk (lines that need to be deleted) item numbers that start with the "40-xxxxx". I want to combine these loops so that the macro will delete ALL item #'s that start with "40-xxxxx" **EXCEPT** "40-00017" & "40-00004".

```
    sItem = Cells(I, 1)

    Do While Left(sItem, 8) = "40-00087" 'labor-annual refinish
        Rows(I).Select
        Selection.Delete shift:=xlUp
        sItem = Cells(I, 1)
    Loop
Next I

For I = 2 To nRowMax
    sItem = Cells(I, 1)

    Do While Left(sItem, 8) = "40-00076" 'CONNOISSEURS CLOTH
        Rows(I).Select
        Selection.Delete shift:=xlUp
        sItem = Cells(I, 1)
    Loop
Next I

For I = 2 To nRowMax
    sItem = Cells(I, 1)

    Do While Left(sItem, 8) = "40-00007" 'labor jewelery
        Rows(I).Select
        Selection.Delete shift:=xlUp
        sItem = Cells(I, 1)
    Loop
Next I

For I = 2 To nRowMax
    sItem = Cells(I, 1)

    Do While Left(sItem, 8) = "40-00073" 'foam cleaner blitz
        Rows(I).Select
        Selection.Delete shift:=xlUp
        sItem = Cells(I, 1)
    Loop
Next I

For I = 2 To nRowMax
    sItem = Cells(I, 1)

    Do While Left(sItem, 8) = "40-00084" 'labor-razny 1st
        Rows(I).Select
        Selection.Delete shift:=xlUp
        sItem = Cells(I, 1)
    Loop
Next I

For I = 2 To nRowMax
    sItem = Cells(I, 5)

    Do While Left(sItem, 2) = "GC" 'gift cards
        Rows(I).Select
        Selection.Delete shift:=xlUp
        sItem = Cells(I, 5)
    Loop
Next I

```