Bulk deleting lines/rows of data.

Hi,

I have spreadsheet A which has a list of current product lines.

I have spreadsheet B which has a list of current product lines as above but also has items which have been discontinued/deleted and need to be removed from spreadsheet B as they do not appear in spreadsheet A.

I have identified the products which should not be in spreadsheet B see attached spreadsheet titled "Items to delete"

Is there a way I can bulk delete these identified product rows from spreadsheet B. (sample of spreadsheet B attached)

Thanks

Rich

Another option

Sub ChkDelete()
   Dim WsA As Worksheet
   Dim WsB As Worksheet
   Dim Cl As Range
   Dim Rng As Range
   
   Set WsA = Workbooks("Spreadsheet A.xls").Sheets("Dealer List price")
   Set WsB = Workbooks("Spreadsheet B.xls").Sheets("Dealer List price")
   With CreateObject("scripting.dictionary")
      For Each Cl In WsA.Range("A2", WsA.Range("A" & WsA.Rows.Count).End(xlUp))
         If Not .exists(Cl.Value) Then .Add Cl.Value, Nothing
      Next Cl
      For Each Cl In WsB.Range("A2", WsB.Range("A" & WsB.Rows.Count).End(xlUp))
         If Not .exists(Cl.Value) Then
            If Rng Is Nothing Then
               Set Rng = Cl
            Else
               Set Rng = Union(Rng, Cl)
            End If
         End If
      Next Cl
   End With
   If Not Rng Is Nothing Then Rng.EntireRow.Delete
End Sub

Thank you very much for your help, it works a treat

Not sure which of us your talking to, but glad we could help & thanks for the feedback

Both of you for replying. I have used Alan's suggestion.