Откройте редактор VB в Excel и используйте что-то вроде следующего на каждом из затронутых листов, а также измените названия листов и требуемый диапазон.
Private Sub Worksheet_Change(ByVal target As Range)
If target.Address = "$A$1" Then
ActiveWorkbook.Worksheets("Sheet2").Range(target.Address).Value = target.Value
End If
End Sub
Как указано в комментарии кОтвет Джеймса, это не возможно без такого небольшого количества кода, если вы не используете две дополнительные ячейки.