Вы могли бы поместить формулу Array в столбец Sheet2 A. Я не думаю, что вы можете заставить это работать на весь столбец, но вы могли бы применить это, чтобы сказать первые 5000 строк. Затем, когда пользователь вводит значения в Sheet1, они дублируются на Sheet2.
Что-то вроде:
= IF (Лист1 $ A $ 1: $ A $ 5000 = "", "", Лист1 $ A $ 1: $ A $ 5000)
Следует скопировать ячейки из A1: A5000 и убрать пустые в целевой диапазон. Вам нужно будет выбрать 5000 ячеек на Листе 2 и ввести формулу, а затем нажать Ctrl-Enter, чтобы вставить ее как формулу массива.
Это гораздо проще, чем пытаться создать что-либо с помощью VBA или VSTO, чтобы отслеживать изменения и дублировать их.