I can't figure out why this macro isn't working right. In my group we have user id's which are letter and number combos. I wanted to write up a macro in which I can take any list any size and select the user id's and it will filter the results to just our id's. I wrote this but it seems as though it's skipping rows. I can't figure it out.

Option Explicit
Public Sub COLUMN_UNIT_CODE()
Dim cell
'Application.ScreenUpdating = False
For Each cell In Selection
    cell.NumberFormat = "@"
    If cell.Value <> "2A" Then
    If cell.Value <> "7G" Then
    If cell.Value <> "D1" Then
    If cell.Value <> "D2" Then
    If cell.Value <> "D6" Then
    If cell.Value <> "F3" Then
    If cell.Value <> "H1" Then
    If cell.Value <> "H5" Then
    If cell.Value <> "M1" Then
    If cell.Value <> "M4" Then
    If cell.Value <> "M6" Then
    If cell.Value <> "G5" Then
    cell.EntireRow.delete
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
Next cell
End Sub