Search cell (external book) and delete row if found

Hi everyone! I have two workbooks, one is used for importing items to the site while the other is a monthly product list. In each of these I have a list of sku codes. I need a macro that will search each sku from the import to the entire product workbook. If it's found then delete the whole row from the product workbook. I have attached the examples below.

Thanks for your time and help.

This will do it just change sheet names and workbook names to suit

Sub Find_And_Copy()
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Dim FoundOne As Range, LookInR As Range, LookForR As Range, c As Range
    Dim nr3 As Long
    
    Application.ScreenUpdating = False
    Set ws1 = Sheets("Sheet4")
    Set ws2 = Sheets("Sheet5")
    Set ws3 = Sheets("Sheet6")
    Set LookInR = ws1.Range("A1").CurrentRegion
    Set LookForR = Range(ws2.Range("A2"), ws2.Range("A" & Rows.Count).End(xlUp))
    nr3 = ws3.Range("A" & Rows.Count).End(xlUp).Row + 1
    For Each c In LookForR
        With LookInR
            Set FoundOne = .Find(What:=c, LookAt:=xlPart)
            Do While Not FoundOne Is Nothing
                FoundOne.EntireRow.Cut Destination:=ws3.Cells(nr3, 1)
                nr3 = nr3 + 1
                Set FoundOne = .FindNext
            Loop
        End With
    Next c
    Set ws1 = Nothing
    Set ws2 = Nothing
    Set ws3 = Nothing
    Set LookInR = Nothing: Set LookForR = Nothing
    Application.ScreenUpdating = True
End Sub

This will do the trick
it ruff but will work?

Sub Find_And_Copy()
    Dim FoundOne As Range, LookInR As Range, LookForR As Range, c As Range
     Application.ScreenUpdating = False
    Sheets("Sheet3").Select
  Windows("import.xls").Activate
  Sheets("sheet1").Range("A1:G500", Worksheets("Sheet1").Range("B561").End(xlUp)).Copy (Workbooks("products.xls").Sheets("Sheet3").Range("a1"))
   Windows("products.xls").Activate
 Sheets("general").Select
    Set LookForR = Range(Sheets("Sheet3").Range("A2"), Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp))
    Set LookInR = Range(Sheets(1).Range("c2"), Sheets(1).Range("c" & Rows.Count).End(xlUp))
     For Each c In LookForR
        With LookInR
            Set FoundOne = .Find(What:=c, LookAt:=xlPart)
            Do While Not FoundOne Is Nothing
                FoundOne.EntireRow.Delete
                  Set FoundOne = .FindNext
            Loop
        End With
    Next c
    Set ws1 = Nothing
    Set ws2 = Nothing
    Set ws3 = Nothing
    Set LookInR = Nothing: Set LookForR = Nothing
    Application.ScreenUpdating = True
End Sub

Np Poroblems Alexander
Can you please go back to your first post
click edit
then go advanced
and change the post to SOLVED

Hi Alexander
Can you please go back to your first post
click edit
then go advanced
and change the post prefix to SOLVED