problemas al recorrer una lista

[alfa18]

Hola foreros,
tengo un problema con una macro y un bucle que recorre un rango. Os adjunto el codigo:

Código vb:

Option 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