Tedd külön lapra a két listát.

Nálam az egyik lap neve "termékszám", a másiké "megszűnt".

Az alábbi makró a "termékszám" lapon törli azokat a sorokat, amelyeknek az A oszlopában szerepel valamelyik, a "megszűnt" lap A oszlopában szereplő érték.

Ha más a neve a lapjaidnak, a makróban írd át.

Sub torl()
    Sheets("megszűnt").Select
    For sor = 2 To Range("A65536").End(xlUp).Row
        tsz = Cells(sor, 1)
        Sheets("termékszám").Select
        On Error Resume Next
        Cells.Find(What:=tsz, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False).Activate
        Selection.EntireRow.Delete
        Sheets("megszűnt").Select
    Next
End Sub