Если ОК - удалить из соседней ячейки формулу и оставить значение - VBA

Формулировка задачи:

Добрый день! Требуется помощь в написании макроса. Имеется 2 столбца в таблице. 1 столбец с формулой ВПР 2 столбец данные с выбором "не подтверждено"/"OK" Вот нужно сделать так,чтобы когда во втором столбце стоит "OK", то в 1 столбце удалялась формула и оставлялось только значение. Можно ли это реализовать? Заранее спасибо.

Решение задачи: «Если ОК - удалить из соседней ячейки формулу и оставить значение»

textual
                            Листинг программы 
                        

                            Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("AE5:AE" & Cells(Rows.Count, "AE").End(xlUp).Row)) Is Nothing Then
        If Target.Value = "ОК" Then Target.Offset(0, -1).Value = Target.Offset(0, -1).Value
        Beep
    End If
End Sub
                        