Macros: Using For, Looping through Rows and Columns

[@smayker5847]

Muy interesante y buena explicación. Gracias.

[@arathmoreno1960]

Muy buena explicación!! Un suscriptor más!! Saludos

[@excelparati3764]

Muchas gracias Arath , saludos!!

[@joseignaciopinomondeja6105]

Muy bueno. Gracias.

[@elmorocho4502]

Excelente ejercicio

[@juangaytan2719]

Gracias!!!

[@excelparati3764]

Gracias por tú visita, saludos!

[@gramos73]

Que bucles son mas rapidos?

[@C5iTelecom]

muy buen video, mi pregunta es tengo una macro de vba que me agrega datos masivos pero cuando quiero insertar datos en la segunda columna me los manda abajo y no al principio como en la columna 1, cual seria la solución, codigo:
Sub AltaMasiva()
Dim hojaOrigen As Worksheet
Dim tablaOrigen As ListObject
Dim hojaDatos As Worksheet
Dim tabla As ListObject
Dim nuevaFila As ListRow
Dim filasOrigen, i
Dim pregunta As Byte
Set hojaOrigen = ThisWorkbook.Sheets("Registro")
Set tablaOrigen = hojaOrigen.ListObjects("registros")
filasOrigen = tablaOrigen.ListRows.Count
Set hojaDatos = ThisWorkbook.Sheets("Dias")
Set tabla = hojaDatos.ListObjects("dias")
For i = 1 To filasOrigen
Set nuevaFila = tabla.ListRows.Add

With tablaOrigen.ListRows(i)
nuevaFila.Range(1) = .Range(1).Value
nuevaFila.Range(2) = .Range(2).Value
nuevaFila.Range(3) = .Range(3).Value
nuevaFila.Range(4) = .Range(4).Value
nuevaFila.Range(5) = .Range(5).Value
nuevaFila.Range(6) = .Range(6).Value
nuevaFila.Range(7) = .Range(7).Value
nuevaFila.Range(8) = .Range(8).Value
End With
Next i
MsgBox "Se guardaron los valores en tabla destino", vbInformation
pregunta = MsgBox("Deseas limpiar los valores de la tabla registro?", vbYesNo + vbQuestion)
If pregunta = vbNo Then Exit Sub
If tablaOrigen.ListRows.Count >= 1 Then
tablaOrigen.DataBodyRange.Delete
End If
End Sub