Sub RemoveDuplicatesInCells()

    Dim c As Range
    Dim rCheckForDupes As Range

    Set rCheckForDupes = Range("A:B")

    With rCheckForDupes

        For Each c In .Columns(2).Cells

            If WorksheetFunction.CountIf(.Columns(1), c.Value) > 0 Then
                c.ClearContents
            End If

        Next c

        .Columns(2).SpecialCells(xlCellTypeBlanks).Select

        Selection.Delete Shift:=xlUp

        .Cells(1).Select

    End With

    Set rCheckForDupes = Nothing

End Sub