vba Delete Row(s) not matching table criteria Macro

[NGB82KS]

So i'll do my best to try and explain this.
I have a spreadsheet with 2 tabs (DataExport; FilterCriteria)
The DataExport tab is every computer i pulled from active directory (real long list) Column A is the PC name and Column B is the OU it resides in.
The FilterCriteria tab Column A is a list of the PC names that I would be looking for.
Note* Our PC naming conventions have gone through some changes, so i need the search to look for anything that begins, ends or contains the computer name in Column A of the FilterCriteria tab.

I need to be able to execute a macro that Deletes all rows from the DataExport tab that doesn't match the name filters in Column A/Name table of the FilterCriteria tab. Any help would be greatly appreciated.

 

[ngocanh87]

Thank you for your support, it still error when I compare Result A2 sheet vs DLV030 AU column sheet

 

[ngocanh87]

Sorry, it works perfectly. Thank you so much.

Sub Delete_Row_1()
Dim arr As Variant, i As Long, j As Long, lr As Long
Dim a As Variant, b As Variant, r As Range
Dim sh1 As Worksheet, sh2 As Worksheet, exists As Boolean

Application.ScreenUpdating = False
'
Set sh1 = Sheets("DLV030")
Set sh2 = Sheets("Result")
If sh1.AutoFilterMode Then sh1.AutoFilterMode = False
lr = sh1.Range("AU" & Rows.Count).End(xlUp).Row
a = sh1.Range("AU2:AU" & lr).Value2

b = sh2.Range("A2:A" & sh2.Range("A" & Rows.Count).End(xlUp).Row + 1).Value
Set r = sh1.Range("A" & lr + 1)
For i = 1 To UBound(a)
exists = False
For j = 1 To UBound(b) - 1
If a(i, 1) Like "*" & b(j, 1) & "*" Then
exists = True
Exit For
End If
Next
If exists = False Then Set r = Union(r, sh1.Range("A" & i + 1))
Next
r.EntireRow.Delete
End Sub