Agrupar datos por rangos

hola, 'anonimo' !

... tengo varios datos en una columna deseo que me los agrupe por rangos asi:
a1: a
a2: aa
a3:ab
a4:a
a5:ac
a6: ab
que me queden asi en otra hoja:
a1:a
a2:aa
a3:ac
y no me copie los repetidos quiero hacerlo en una macro para que lo pueda tener y trabajarlo las veces que sea necesario.

prueba usando filtros avanzados por codigo pero... necesitaras 'ponerle titulos' a la columna 'A' [en 'A1' ?]
suponiendo que estamos hablando de la columna 'A' de la hoja1 y quieres pasarlos a la columna 'A' de la hoja2...
-> copia/pega las siguientes lineas en un modulo de codigo 'estandar/normal/general'/...

Sub Pasar_unicos()
With Worksheets("hoja2")
Worksheets("hoja1").Columns("a").AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=.Range("a1"), Unique:=True
.Range("a1").Sort Key1:=.Range("a1"), Header:=xlYes
End With
End Sub

si mis supuestos estan equivocados... :-(( ya comentaras lo que se hubiera quedado 'en el tintero' :))
saludos,
hector.