Sub RemoveDupes()
Dim Rng As Range
Dim i As Long
i = Range("A" & Rows.Count).End(xlUp).Row
Set Rng = Range("B1:B" & i)
With Rng
.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
.SpecialCells(xlCellTypeVisible).Select
ActiveSheet.ShowAllData
Selection.EntireRow.Hidden = True
.SpecialCells(xlCellTypeVisible).ClearContents
.EntireRow.Hidden = False
End With
End Sub