Private Sub Worksheet_Change(ByVal Target As Range)
Dim vsAdr As String
Dim vvVal As Variant
Dim x1, x2, y1, y2, vlRow, vlCol As Integer

x1 = 3: x2 = 5: y1 = 7: y2 = 9
'x1,x2 левая и правая граница,
'y1,y2 верхняя и нижняя граница поля внутри которого работает алгоритм

vlRow = Target.Row
vlCol = Target.Column

   If vlCol >= x1 And vlCol <= x2 And vlRow >= y1 And vlRow <= y2 Then
      Application.EnableEvents = False
      vsAdr = Target.Address
      vvVal = Target.Value
      Range(Cells(y1, vlCol), Cells(y2, vlCol)).ClearContents
      Cells(vlRow, vlCol) = vvVal
      Application.EnableEvents = True
   End If

End Sub