VBA delete row if cell value found in range

[EMcK01]

Hi,

I'm trying to delete any rows that match any name found within another range.

I've used the basis of a code that leaves any column if its in the range but struggling.

Dim NTS_LR As Long, NTS_LC As Long
        Dim NTS_Name As Variant
        
            With Sheets("NonTechStaff")
                NTS_LR = .Cells(.Rows.Count, 2).End(xlUp).Row
                NTS_Name = .Cells(2, 2).Resize(NTS_LR, 2).Value
            End With
        
        Dim TempLR
        TempLR = Cells(Rows.Count, 1).End(xlUp).Row
        
            For Row = TempLR To 5 Step -1
                x = ""
                On Error Resume Next
                x = WorksheetFunction.Match(Cells(Row, 1), NTS_Name, 0)
                If Not IsNumeric(x) Then Rows(Row).EntireRow.Delete
            Next Row

I think this is the line

If Not IsNumeric(x) Then Rows(Row).EntireRow.Delete

that I need to amend but not sure how to write the If statement for it

 

[DanteAmor]

Try this:

Sub deleterow()
  Dim f As Range, i As Long
  
  Application.ScreenUpdating = False
  For i = Range("A" & Rows.Count).End(3).Row To 5 Step -1
    Set f = Sheets("NonTechStaff").Range("B:B").Find(Range("A" & i).Value, , xlValues, xlWhole, , , False)
    If Not f Is Nothing Then Rows(i).Delete
  Next
  Application.ScreenUpdating = True
End Sub

 

[EMcK01]

thats ideal, thanks very much for your help.