Как сделать равными значения в столбцах?

[gryz]

Добрый день! Вопрос может и простой, но ответа пока найти не могу. Опытный народ, прошу помощи!
В таблице есть некие два столбца данных. Нужно чтобы при удалении данных из одного столбца они удалялись и из другого.
Заранее благодарю за любой совет.

[staniiislav]

пример в студию

[gryz]

Вот пример.

[staniiislav]

Сообщение от gryz

Вот пример.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("B1:B200"), Target) Is Nothing Then
    If Target.Cells.Count > 1 Then Exit Sub
    If IsEmpty(ActiveCell) Then Cells(Target.Row, Target.Column - 1).ClearContents
End If
End Sub

Добавлено позже:
Поместить в модуль листа, на котором производятся вычисления