ВЫ ИЗВИНИТЕ МЕНЯ, Я ПЛОХО В ЭТОМ РАЗБИРАЮСЬ!
делала так:
Создание макроса с использованием Microsoft Visual Basic
1. В меню Сервис Microsoft Excel выберите команду Макрос, а затем — Редактор Visual Basic.
2. В меню Insert выберите команду Module.
3. Введите или скопируйте программу в окно программы модуля.
4. Чтобы запустить данный макрос из окна модуля, нажмите кнопку F5.
5. Когда макрос будет создан, выберите команду Close and Return to Microsoft Excel в меню File.
получилось в Visual Basic:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
Range("B1").FormulaLocal = "=" & Range("A1").Value
Range("B1") = Evaluate(Range("B1").Formula)
If Err.Number <> 0 Or IsError(Range("B1")) Then _
Range("B1") = "Опаньки, плохи дела с формулой в A1"
Application.EnableEvents = True
End Sub
Sub мой()

End Sub

НЕ РАБОТАЕТ (ЧТО НЕ ТАК?)