interesante el lio
estoy probando tus codigos, y no ejecutan; solamente el mensaje(prueba)
intente, utilizar este codigo para mover alguna celda, pero igual no funciono
Cita: Sub movecell()
i = 10
ActiveCell.Offset(rowOffset:=0, columnOffset:="" & i).Activate
End Sub