how to delete rows based on duplicate information in a column

We assume number sorted in column A:

Range("A1").Select
Do While ActiveCell <> ""
If ActiveCell = ActiveCell.Offset(-1, 0) Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop

Cordialy JB