Copiar valores de celdas a otra hoja en forma vertical

La macro calcula el número de valores que tienes hacia la derecha, siempre y cuando, en cada columna de valor, en la fila 1, tengas la palabra "VALOR" (tal como lo tienes en tu ejemplo).

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 Asignar macro / Selecciona: códigos
9. Aceptar.
10. Para ejecutarla dale click a la imagen.

Sub codigos()
'Por.DAM
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
h2.Cells.Clear
h1.Select
m = 2
For n = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
    If UCase(Left(Cells(1, n), 5)) = "VALOR" Then p = p + 1
Next
h1.Range("A1:C1").Copy h2.Range("A1")
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    k = 2
    For j = 1 To p
        If Cells(i, k) <> "" Then
            h2.Cells(m, "A") = Cells(i, "A")
            h2.Cells(m, "B") = Cells(i, k)
            h2.Cells(m, "C") = Cells(i, k + 1)
            m = m + 1
        End If
        k = k + 2
    Next
Next
h2.Select
End Sub

Saludos.DAM
Si es lo que necesitas.