Private Sub Worksheet_Change(ByVal Target As Range)
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
vvVal = Target.Value
Range(Cells(y1, vlCol), Cells(y2, vlCol)).ClearContents
Cells(vlRow, vlCol) = vvVal
Application.EnableEvents = True
End If
End Sub