Удалить дубликаты из списка на основе критериев

Попробуйте

Sub Test()

    Dim LastRow As Long
    Dim Vendors As Range

    LastRow = Cells(1, 1).End(xlDown).Row
    Set Vendors = Range(Cells(2, "A"), Cells(LastRow, "A"))

    For i = 2 To LastRow
        If WorksheetFunction.CountIf(Vendors, Cells(i, "A").Value) > 1 Then
            If Cells(i, "E") = False Then
                Cells(i, "E").EntireRow.Delete
                i = i - 1
            End If
        End If
    Next i

End Sub

Возможный обходной путь - скопировать поставщиков «ЛОЖЬ» на другой лист и выполнить там «Удалить дубликаты» (Данные-> Инструменты данных-> Удалить дубликаты). Тогда вы бы скопировали результат обратно. Если вас беспокоит порядок продавцов, оцените их в первую очередь.