Use Values From One List To Remove Rows From Another List

I have two lists in the same workbook:

List 1) Contains customer contact information, including an account number. These account numbers may be duplicated in the list.

List 2) Contains account numbers of customers who wish to be removed from the first list.

I need to remove the rows from the customers list (List 2) where the account numbers match, and also copy those to another list for review. So far, I can manually choose and run some code to remove one particular account number only (eg 123):

Set FoundCell = Range("A:A"). Find(What:="123")
'Locate information to remove
Do Until FoundCell Is Nothing
FoundCell.EntireRow.Copy
Sheets(" Deleted List").Select

'ActiveSheet.Next.Select
Range("A1").Select

Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select..................