Number values are also strings in your case so the number vs text concern is not an issue. It might be an issue if the numbers were decimalzed integers or dates but whole numbers as you depict them in your screen shot are no problem to deal with.
Your request for a macro to do what you want to do here is made more interesting by the design layout of the sheet, whereby you have the larger duplicate-containing range sitting above the smaller criteria range. That means, an advisable approach would likely not include stepping through the rows one by one and deleting them as the criteria is met during the course of macro execution, because then the criteria range itself will be altered and needing to be redefined at each row deletion, not very efficient. I suppose the criteria could be placed in a bound array beforehand to address that, but in case you have a hundred criteria, arrays might not be the best way to go either.
Assuming you have no more than 8192 contiguous blocks of unique strings (a safe assumption by a longshot because you said you only have 100 rows to consider), this macro is the way I might approach the problem. It will work for any column, for text or whole numbers. You can easily see in the code where to modify the respective ranges of interest, for the variables named DuplicateValueRange and RemoveValueRange.
Sub Test1()
Application.ScreenUpdating = 0
Dim cell As Range, DuplicateValueRange As Range, RemoveValueRange As Range, LC%
Set DuplicateValueRange = Range("A2:A10")
Set RemoveValueRange = Range("A14:A16")
LC = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For Each cell In DuplicateValueRange.SpecialCells(2)
If WorksheetFunction.CountIf(RemoveValueRange, cell.Value) = 0 Then Cells(cell.Row, LC + 1).Value = "x"
Next cell
On Error Resume Next
With DuplicateValueRange
.Offset(0, LC - .Column + 1).Resize(.Rows.Count, 1).SpecialCells(4).EntireRow.Delete
End With
Err.Clear
Columns(LC + 1).Clear
Set DuplicateValueRange = Nothing
Set RemoveValueRange = Nothing
Application.ScreenUpdating = 1
End Sub