Excel - Convertir Filas en Columnas

Option Explicit

Sub copiar()

    Dim Fila_Orig As Long, Colu_Orig As Integer, _

        Fila_Dest As Long

    Sheets("HOJA1").Select

    Fila_Orig = 1

    Fila_Dest = 0

    While Cells(Fila_Orig, "A") <> ""

        Colu_Orig = 3

        While Cells(Fila_Orig, Colu_Orig) <> ""

            Fila_Dest = Fila_Dest + 1

            With Sheets("HOJA2")

                .Cells(Fila_Dest, "A") = Cells(Fila_Orig, "A")

                .Cells(Fila_Dest, "B") = Cells(Fila_Orig, "B")

                .Cells(Fila_Dest, "C") = Cells(Fila_Orig, Colu_Orig)

            End With

            Colu_Orig = Colu_Orig + 1

        Wend

        Fila_Orig = Fila_Orig + 1

    Wend

    MsgBox "Fin de la Macro"

End Sub