For Each iCell In r With iCell If WorksheetFunction.CountIfs(Columns(2), .Value) > 1 Then .ClearContents End With Next
For Each iCell In r With iCell If WorksheetFunction.CountIfs(Range(Cells(1, 2), Cells(iCell.Row, 2)), .Value) > 1 Then .ClearContents End With Next