如何删除重复值单元格？

Question

在Sheet1的B列上有n个日期的列表。如何删除重复的内容？

Sub sbRemoveDuplicates()
    Dim horasSemanas As Worksheet
    Set horasSemanas = Worksheets("Sheet1")

    Cells.RemoveDuplicates Columns:=Array(2)
End Sub