Удалить дубликаты и оставить один

Question

У меня есть код ниже, чтобы удалить строку, если она дублируется, но я хочу, чтобы она оставила одну из строк, и в настоящее время она удаляет всю информацию о дублирующихся строках.

например, в столбце У BI есть названия компаний и есть некоторые дубликаты. Я хотел бы удалить все строки для одного и оставить другой. В настоящее время он удаляет их обоих,

спасибо!

Sub ShowandDeleteDuplicateRows()
Dim rng1 As Range
Dim lRow As Long
Dim i As Long

lRow = Range("B" & Rows.Count).End(xlUp).Row
Set rng1 = Range("B4", Cells(Rows.Count, "B").End(xlUp))

    For Each cell In rng1
        If WorksheetFunction.CountIf(rng1, cell.Value) > 1 Then
            cell.Interior.ColorIndex = 6
        End If
    Next cell
    For i = lRow To 2 Step -1
        If Cells(i, 3).Interior.ColorIndex = 6 Then
            Rows(i).Delete
        End If