The following code orders the values from A1 to A10 in ascending order and then deletes the rows that have duplicate values. This code could be generalized for large data sets.

Sub DelDuplicates()
Dim currentcell, nextcell 'Declares currentcell and nextcell as variant data types
Range("A1:A10").Sort key1:=Range("A1:A10") 
Set currentcell = Range("A1")
Do While Not IsEmpty(currentcell) 'Continues loop until a the current cell is found to be empty
    Set nextcell = currentcell.Offset(1, 0)
    If nextcell.Value = currentcell.Value Then
    End If
    Set currentcell = nextcell
End Sub