Remove data from one list based on another list

[mattd4385]

I have a list a data on sheet1 col_A,
And a list of data in sheet2 col_A.

The List in sheet1 contains all the data i would like to remove from sheet2 (i would like to remove the row not just the cell).

Other notes:
The sheets can not be sorted in any way.
Sheet1 the removel list dosn't contain repeats
sheet2 may contain repeats


-----Ex.-------
sheet1 col_A: (nothing will change on this sheet it is only a list)
1
4
3
2

sheet2 col_A: (BEFORE)
3
1
12
2
16
4
36

sheet2 col_A: (AFTER)
12
16
36

 

[Misca]

Try:

Sub FilterAndDelete()
    
Dim c As Range

On Error Resume Next
Application.ScreenUpdating = False

'Change sheet names to match your workbook

With Sheet1
For Each c In .Range(.Range("A2"), .Range("A" & Rows.Count).End(xlUp))
    
    With Sheet2
        .Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:=c.Value
        .Range("A1").Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete Shift:=xlUp
    End With
    
Next c

End With

Sheet2.AutoFilterMode = False

End Sub