¿Cómo encontrar valores iguales en columna de Excel y copiar filas de coincidentes?

Aquí tienes la solución, sigue mis instrucciones:

Vamos a poner tus datos iniciales en el rango A1:C7. Después ejecutas esta macro y todo listo.

Sub organizar()
Range("a2").Select
fila = 2
columna = 5
Do While ActiveCell.Value <> ""
valor = ActiveCell
contarsi = Application.WorksheetFunction.CountIf(Columns(1), valor)
For x = 1 To contarsi
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 3)).Copy Destination:=Cells(fila, columna)
columna = columna + 3
ActiveCell.Offset(1, 0).Select
Next
columna = 5
fila = fila + 1
Loop
Range("e1").CurrentRegion.Select
tope = Selection.Columns.Count
veces = tope / 3
Range("a1:c1").Copy
Range("e1").Select
For p = 1 To veces
Selection.PasteSpecial Paste:=xlAll
Selection.Offset(0, 3).Select
Next
For Each celda In Range("f1:" & Range("mm1").End(xlToLeft).Address)
If ucase(celda.Value) = "DNI" Then
celda.EntireColumn.Delete
End If
Next
prod = 1
cant = 1
For Each celda In Range("f1:" & Range("mm1").End(xlToLeft).Address)
If ucase(celda.Value) = "PRODUCTO" Then
celda.Value = "PRODUCTO" & prod
prod = prod + 1
End If
If ucase(celda.Value) = "CANTIDAD" Then
celda.Value = "CANTIDAD" & cant
cant = cant + 1
End If
Next
Range("a1").Select
End Sub

recuerda finalizar y puntuar

¡Admirable la velocidad en contestar!

Una cosa más, es posible que el DNI (la primera columna) no se siga repitiendo. Es decir, que aparezca solo la primera vez, ya que luego es el mismo dato repetido, siendo lo importante los diferentes productos y cantidad.

Saludos y muchas gracias nuevamente!