Макрос удаления строк - VB

Формулировка задачи:

Подскажите, как написать макрос для удаления строк с одного листа если нет совпадений записей с записями на другом листе?
Есть список всех товаров склада на 2 листе, а на первом листе список товаров которые уже заканчиваются, и нужно чтобы на листе 2 остались только те товары которые есть на листе 1.

Решение задачи: «Макрос удаления строк»

textual
                            Листинг программы 
                        
                            With Sheets("Лист6")
        arr = .Range(.Cells(11, 8), .Cells(.Rows.Count, 8).End(xlUp))
        For lr = 1 To UBound(arr, 1)