Remove Spam Emails From Total Client List

[IREALLYambatman]

So were a tiny science company and I'm trying to help out 'sales' department girl by setting up a macro that will simplify her job a bit... She has a ton of emails and a list of customers who want to be removed from the email list. I'm trying to automate this for her.. I found some stuff out there and got decently far, so on the first tab I have all the clients info, second tab is the list of emails that she wants removed, THIRD tab I want it to be all the clients with all their info that DIDN'T opt out of the emails. The function I currently have labels the clients that want to be removed, but I can't figure out how to copy all clients that HAVENT OPTED OUT to the third tab. If it can be dont via functions then great, otherwise a macro would work too.

I appreciate the help guys.

Tab1 Tab2

The Function I am using is:

=IF(ISERROR(MATCH('ALL CLIENTS'!E2,OptedOutEmails!A2:A1001,0)),"OK","OptedOut")

 

[IREALLYambatman]

So I decided to create a macro that will delete the Rows that have "OptedOut" in the K column.. This is what I have so far.. Apparently my range is wrong.. I just want it to repeat for RowK1 --> Row KLastrow, then delete row if that value is "OptedOut"

Sub DuplicateDelete()

Sheets("ALL CLIENTS").Range("A1:J10000").Copy Destination:=Sheets("ClientsAndEmailsThatAreOK").Range("A1:J10000")
With ActiveSheet
    lastRow = .Cells(.Rows.Count, "K").End(xlUp).Row
    MsgBox lastRow
End With


Dim c As Range
For Each c In Range(Range("K1"), Cells(lastRow, K))
    If c.Value = "OptedOut" Then Rows(1).EntireRow.Delete
Next c




End Sub