Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B2:F4")) Is Nothing Then
With Application
.EnableEvents = False
Target.Offset(4) = Target
.EnableEvents = True
End With
End If
End Sub