loop multiple criteria & delete matching rows?

Are the check# values unique? Meaning that column will never have duplicates?

Ok, since we have to delete, we need to store the rows to delete in a range because if we delete on the fly we lose the range myMatch... give this a try:

Sub multimatch()

Dim wsc As Worksheet 'the sheet to match from
Dim wsd As Worksheet 'the sheet to delete from
Dim lr  As Long
Dim i As Long
Dim myMatch As Range
Dim match_address As String
Dim searchrange As Range
Dim delete_range As Range

Set wsc = Worksheets("DATACRITERIA")
Set wsd = Worksheets("PULLDATAFROM")
lr = wsc.Range("B" & Rows.Count).End(xlUp).Row
Set searchrange = wsd.Range("B:B")
For i = 2 To lr 'starts at row 2 since 1 is headers
    Set myMatch = searchrange.Find(what:=wsc.Range("B" & i).Value, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlNext)
    If Not myMatch Is Nothing Then
        match_address = myMatch.Address
        If wsd.Range("A" & myMatch.Row).Value = wsc.Range("A" & i).Value Then Set delete_range = wsd.Range("A" & myMatch.Row).EntireRow
    Else
        GoTo not_found
    End If
    Do
        Set myMatch = searchrange.FindNext(myMatch)
        If wsd.Range("A" & myMatch.Row).Value = wsc.Range("A" & i).Value Then
            If delete_range Is Nothing Then
                Set delete_range = wsd.Range("A" & myMatch.Row).EntireRow
            Else
                Set delete_range = Union(delete_range, wsd.Range("A" & myMatch.Row).EntireRow)
            End If
        End If
    Loop While Not myMatch Is Nothing And myMatch.Address <> match_address
If Not delete_range Is Nothing Then delete_range.Delete shift:=xlUp
not_found:
Next i

End Sub

Thanks for the feedback Quit6778, and for marking the thread as solved
And also for the kind words and rep!