Cómo alinear datos en fila.

Necesito que unos códigos me aparezcan en fila, iniciando por el primero, que es el base.

EJEMPLO:

Datos

Cód.1 = Cód.4=Cód.9

Cód.2=Cód.5=Cód.8

Cód.3=Cód.6=Cód.7

Entonces la macro debería hacer que en la planilla aparezca así:

 Cód O             C1        C2          C3

Cód.1:         Cód.1     Cód.4    Cód.9

Cód.2:         Cód.2     Cód.5    Cód.8

Cód.3:          Cód.3     Cód.6     Cód.7

Cód.4:         Cód.4     Cód.9     Cód.1

Cód.5:          Cód.5     Cód.8     Cód.2

Cód.6:          Cód.6     Cód.7     Cód.3

Cód.7:          Cód.7     Cód.3     Cód.6

Cód.8:          Cód.8     Cód.2     Cód.5

Cód.9:          Cód.9     Cód.1     Cód.4

Lo que tengo por el momento es:

Sub CargarCodigosCC()

i=2

j=2

n= Woeksheets("Hoja1").Columns("A").Cells.Find("*", ,xlFormulas, xlPart, xlByRows, slPrevious).Row

For i=4 To n

origen= Worksheets("Hoja1").Cells(j, 1)

Codigo = Worksheets("Hoja1").Cells(i, 3)

col = 10

For j = 4 To n

If Worksheets("Hoja1").Cells(j, 1) = origen Then

Worksheets("Hoja1").Cells(i, col) = Worksheets("Hoja1").Cells(j, 3 )

Col = col + 1

End If

Next j 

Next i

End Sub

Pero este código hace que en la planilla aparezca:

 Cód O             C1        C2          C3

Cód.1:          Cód.1     Cód.4    Cód.9

Cód.2:          Cód.2     Cód.5    Cód.8

Cód.3:          Cód.3     Cód.6     Cód.7

Cód.4:          Cód.1     Cód.4    Cód.9

Cód.5:          Cód.2     Cód.5    Cód.8

Cód.6:          Cód.3     Cód.6     Cód.7

Cód.7:          Cód.3     Cód.6     Cód.7

Cód.8:          Cód.2     Cód.5    Cód.8

Cód.9:          Cód.1     Cód.4    Cód.9

Lo principal que necesito que el C1 sea igual a Cód O.