Dante Amor respondió:
Te anexo la macro para el ejemplo 2 Sub OrdenSinId() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Datos") Set h2 = Sheets("Orden") h2.Cells.Clear ' fil = 2 col = 2 num = 1 wmax = 0 h2.Cells(fil, "A") = num For i = 2 To...
Ordenar datos en columnas en filas. Son 2 columnas con datos y separadas por una fila en blanco.