I am trying to create multiple ranges in one column using VBA.

I have a set of data in one column and I want to create ranges for each
value, eg

Data:
A
A
A
B
B
C
C
C

I would like a range for A, a range for B, a range for C etc

Thanks
Neil