Copiar celdas saltadas consecutivamente en excel

H o l a:

Utiliza la siguiente macro, los resultados te los va a poner en la columna "D"

Sub CopiaEnUnaColumna()
'Por.Dante Amor
    j = 1
    Columns("D").ClearContents
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Cells(j, "D") = Cells(i, "A")
        Cells(j + 1, "D") = Cells(i, "B")
        Cells(j + 2, "D") = Cells(i, "C")
        j = j + 3
    Next
    MsgBox "Fin"
End Sub

Sigue las Instrucciones para ejecutar la macro

1. Abre tu archivo 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. Para ejecutarla presiona F5

':)
':)