Correccion a Macro - Se desabilita Copy/Paste y no ejecuta correctamente

[yizuss123]

Hola a todos,

Me gustaria que me puedan ayudar con las consultas en el siguiente archivo.

1. Las celdas de color amarillo se activan al colocar un valor y seguidamente se da ENTER (Ejemplo: Cuando W4 = 50) => CASO 1

2. Sin embargo, cuando se coloca cuando W4 =50 y seguidamente se utiliza los botones de desplazamiento del teclado, la macro no se activa => CASO 2

Consulta 1: Habria forma de activar la macro cuando se utilice los botones de desplazamiento en vez del ENTER (CASO 2), ya que ambos casos son validos para ejecutar la macro

3. No se puede copiar ni pegar, cualquier valor dentro de la hoja, entiendo que la macro lo desabilita (Ejemplo: al seleccionar la celda B6 seguidamente copiar, esta se desactiva cuando me desplazo a otra celda)

Consulta 2: Habria forma de habilitar las opciones de copiar / cortar / pegar dentro de esta Hoja

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("U3:AA4")) Is Nothing Then

If ActiveCell.Value = "" Then Exit Sub

If ActiveCell.Value > ActiveCell.Offset(0, 8).Value Then

If Cells(ActiveCell.Row, 5).Value > 2 Then

MsgBox ("Revisar propuesta y Cobertura mayor a 2 meses")

Else

MsgBox ("Revisar la propuesta de compra")

End If

ElseIf Cells(ActiveCell.Row, 5).Value > 2 Then

MsgBox ("Cobertura > 2 meses por stock observado")

Else

End If

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("U3:AA4")) Is Nothing Then

Application.MoveAfterReturn = False

Else

Application.MoveAfterReturn = True

End If

End Sub

Ayuda con codigo VBA.zip