Нашел решение в недавней ТЕМЕ
Проверку с импортом внешних данных не делал, но думаю должно работать.
Что сделано. В ячейке G1 формула скрыта форматом ячейки. Формат заменяет значение текстом "Купля". Соседний заголовок сделал так же (за компанию)
В районе ячейки H1 создано поле из ActiveX, которое привязано к ячейке G1. У этого поля свойство Visible=False, т.е. его не видно.
При добавлении новых данных функция СЧЁТЗ() вернет новое значение, которое также отобразится в скрытом поле TextBox1.
Изменение запустит событие TextBox1_Change(), которое запустит макрос Denis_Sum[vba]Код
Private Sub TextBox1_Change()
Denis_Sum
End Sub
[/vba]