Hola foreros,
tengo un problema con una macro y un bucle que recorre un rango. Os adjunto el codigo:
Código vb:
Ver originalOption Explicit
Sub y7()
Dim i As Integer
Dim empleado As Range
i = 2 'fila de escritura en hoja "H2"
For Each empleado In Sheets("H1").Range("A2:A112")
MsgBox empleado.Address ' *** A3 ???
Sheets("H1").Rows(empleado.Row).Cut Sheets("H2").Rows(i)
i = i + 1
Next empleado
End Sub
Como veis el codigo es bastante simple, mover unos empleados(la lista esta en A2 a A112) de una hoja a otra. El problema que observo al ejecutarlo es que
el bucle me salta la celda A3
, todas las demas las recorre perfectamente A2,A4,A5,A6,A7,...
He revisado y ejecutado el codigo varias veces con el mismo resultado que no encuentro explicacion

¿Alguien tiene idea de cual puede ser el "error"?
Gracias foreros, saludos:D