Rango incluido en otro rango
Tengo un rango de celdas que llamo "XXX" el cual contiene por decir algo las celdas (A1, A2, A3) y otro que llamo "YYY" el cual contiene las celdas (A2, B2), como se puede ver, comparten la celda A2, en un código de macro hago lo siguiente.
Range("XXX,YYY").select
Selection.Name = "ZZZ"
m = Range("ZZZ").Cells.Count
Lo anterior me da como resultado que m = 5, cuando en realidad son 4 celdas. Entonces en otra variable "n" guarde la dirección del rango y me doy cuenta que repite la celda "A2", quedando asi n="$A$1,$A$2,$A$3,$A$2,$B$2".
Lo que yo quiero saber es como hacer para que este nuevo rango "ZZZ" solo tenga en cuenta una vez la celda A2, la repetida. Pues necesito saber la cantidad real de celdas en el rango, porque un loop depende de ello, y de la manera en que esta el proceso entra en un loop infinito