Transponer filas en una columna

Hola
Tengo un archivo de excel con varias columnas se me hizo muy complicado de hacer

Ramo Matricula Nombre Ramo Matricula Folio DatoAdicional
1 1 Nombre 1 1 Folio DatoAdicional
1 2 Nombre 1 1 Folio DatoAdicional
1 3 Nombre 1 2 Folio DatoAdicional
2 1 Nombre 2 2 Folio DatoAdicional
2 2 Nombre 2 2 Folio DatoAdicional
2 3 Nombre 2 2 Folio DatoAdicional



Necesito comparar las columnas ramo y matricula y copiar la información de la primera parte y todas las de la segunda parte en la misma fila no se si me explico bien

Necesito que quede acomodado en el mismo renglón en la Hoja 2 las coincidencias
ejemplo para el primer registro de la parte 1 hay dos registros en la parte 2 necesito
que queden mas o menos asi

Ramo Matricula Nombre Ramo Matricula Folio DatoAdicional Ramo Matricula Folio DatoAdicional
1 1 Nombre 1 1 Folio Dato Adicional 1 1 Folio Dato Adicional

Espero haberme explicado
estuve leyendo varios código me atore en los rangos

'Declaramos la variable de la posicion
Dim celda, valor As String
Dim x, y As Integer

'Valor de la primera columna
x = 2


'Nos situamos en la celda con el primer dato
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
'Pues eso, hasta que no encuentre una fila vacía que baje una fila para abajo
celda = ActiveCell.Address
valor = ActiveCell.Value

y = 2
'Copiar en Hoja2 Rango de Ax:Cx

Range("E2").Select
Do While Not IsEmpty(ActiveCell)
If Range("A"&x&":"&B"&x) = Range("E"&x&":F"&x) Then
'Copiar en Hoja2 fila x Rango de Ey:Ky a la derecha
End If
y = y + 1
ActiveCell.Offset(1, 0).Select
Loop

ActiveCell.Offset(1, 0).Select
Loop
End Sub