Macro para borrar los valores que sean iguales al de arriba

En ocasiones tenemos listados en que los elementos importantes son los primeros que tienen el primer valor diferente en una columna. Por ejemplo, en un listado de localidades, las localidades corresponden a una ciudad, cada vez que aparece el cambio de ciudad es el valor que hay que mantener, el ejemplo se ve en seguida.

En el ejemplo se aprecia un listado de localidades que conforman ciudades. Cada que hay cambio de ciudad es el renglón que hay que mantener.

La macro es la siguiente:


Sub EliminaIgualAbajo()

Anterior = 9999999

For N = 1 To 300

 Valor = ActiveCell.Value

 If Valor = Anterior Then
     Selection.EntireRow.Delete
 Else
    Anterior = Valor
    ActiveCell.Offset(1, 0).Range("A1").Select
End If

Next

End Sub

Y el resultado queda así: