Excel - Durchsuche Tabellenblatt nach bestimmten Wert, wenn vorhanden, lösche Zeile

Sub FindAndDelete()
    Dim rDel As Range, cell As Range, f As Range, firstAddress As String
    With Sheets(1)
        For Each cell In .Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)  
             With Sheets(2).Range("B:B")  
                 Set f = .Find(What:=cell.Value,LookAt:=xlWhole,LookIn:=xlValues)
                 If Not f Is Nothing Then
                     firstAddress = f.Address
                     Do
                        If rDel Is Nothing Then
                            Set rDel = f.EntireRow
                        Else
                            Set rDel = Union(rDel, f.EntireRow)
                        End If
                        Set f = .FindNext(f)
                     Loop While Not f Is Nothing And f.Address <> firstAddress
                End If
            End With
        Next
    End With
    If Not rDel Is Nothing Then
        rDel.Delete
    End If
End Sub