Carrito: 
En una entrada anterior compartí con ustedes un ejemplo de cómo convertir datos de forma vertical a horizontal. Transponer Datos Verticales a Horizontales
A partir de ésta entrada me han preguntado como hacer lo opuesto, es decir convertir los datos de una forma horizontal a vertical.
A continuación les comparto una forma sencilla de realizar ésta tarea.
'****************************************'
' Emaii: obed.cruz@exceitrabajaporti.com '
' www.exceitrabajaporti.com '
'****************************************'
Option Explicit
Sub AgruparDatosVertical()
Dim rng As Range
For Each rng In Range("A1").CurrentRegion.Offset(1, 1).SpecialCells(2)
Worksheets("Resultado").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 2) = Array(Range("A" & rng.Row).Text, rng.Text)
Next
End Sub
