VBA удалить всю строку на основе повторяющихся критериев

Question

Я очень новичок, и мои знания по VBA BASI C. Я попробовал следующий код, чтобы закрасить дублирующиеся значения строки B, а затем удалить всю строку дублированных значений. Мой диапазон начинается в ячейке B4. Этот код работает с цветом, но он ничего не удалит. Может ли кто-нибудь помочь мне? спасибо!

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