Solamente acotar que al usar Application.CutCopyMode al poner = me da a elegir xlCopy o xlCut, para este ejercicio ambas opciones tienen el mismo efecto de poner False.  No sé si ya más avanzado tendrán otra funcionalidad dichas opciones.