Arreglar tabla de excel (combinada)

Te anexo una macro para arreglar tu tabla

En la "Hoja1" pon tu información.

Crea 2 hojas y les pones por nombres "Hoja2" y "Hoja3"

Ejecuta la macro, el resultado lo verás en la hoja2

Sub Arreglar_Tabla()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")        'hoja con datos
    Set h2 = Sheets("Hoja2")        'hoja resultado
    Set h3 = Sheets("Hoja3")        'hoja temporal
    '
    h2.Cells.Clear
    h1.Cells.Copy h3.[A1]
    h3.Cells.UnMerge
    For i = h3.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If h3.Cells(i, "A") <> "" And h3.Cells(i, "A") <> " " Then
            f = i
            For j = 1 To Columns("I").Column
                una = True
                For k = i To 2 Step -1
                    If una = False Then
                        If h3.Cells(k, "A") <> "" Then
                            Exit For
                        End If
                    End If
                    una = False
                    If h3.Cells(k, j) <> "" Then
                        If h2.Cells(f, j) <> "" Then
                            h2.Cells(f, j) = h3.Cells(k, j) & " " & h2.Cells(f, j)
                        Else
                            h2.Cells(f, j) = h3.Cells(k, j)
                        End If
                    End If
                Next
            Next
        End If
    Next
    MsgBox "fin"
End Sub

Sigue las Instrucciones para un botón y ejecutar la macro

1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Arreglar_Tabla
10. Aceptar.
11. Para ejecutarla dale click a la imagen.

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

¡Gracias!  super bueno el aporte 

Me funciono casi super bien me copia todo los datos menos la celda j me ayudas con esto muchas gracias