Seleccionar celdas únicas, trasladarlas y ordenarlas de forma horizontal las que cumplan tres condiciones.

Tengo una BD en columna A, B, C, D de Hoja 1 en el cual de la columna A, B, C tiene datos repetidos y con código VB logre trasladar y ordenar los valores únicos según las tres columnas a hoja2, de columnas A, B, C, hasta allí todo bien, pero ahora necesito que en columna D de hoja 2, pueden aparecer valores segun sea los valores que coinsiden:

Hoja1 hoja 2, como quiero que me quede

A B C D A B C D

1    TEXAS     7X3X8    2-5       1                       1    TEXAS     7X3X8    2-5         1   2      

2 TEXAS 7X3X8 2-5 2 2 TEXAS 7X3X8 3-5 1

3 TEXAS 7X3X8 2-5 3 DALLAS 7X3X8 2-5

4 TEXAS 7X3X8 3-5 1

5 DALLAS 7X3X8 2-5