Como seleccionar celdas con condiciones y trasladarlas en orden a siguiente hoja

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 DE, pueden aparecer valores y deseo que los ubique y luego los ordene de forma horizontal según le corresponda a sus valores, ejemplo:

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