Если кому-то непонятно, то переформулирую.  
 
При ручном редактировании или копировании ячейки из другой таблицы макрос срабатывает нормально. Однако, когда есть необходимость скопировать группу строк, допустим из другой таблицы, формулы копируются в ячейки B* и I* только для одной строки, тогда как по сути ведь изменили свое значение в столбце С несколько ячеек.  
Может быть мы неправильно выбрали событие Change, а может быть допустили ошибку (недочет) в сам текст процедуры.  
Возможно это происходит из-за переменной myKontrCell, которой присваивается значение target (то есть ячейки, где стоит курсор).  
 
Тогда может быть есть возможность присвоить что-то другое? Допустим диапазон ячеек, которые подверглись изменению.  
 
ПОЖАЛУЙСТА, помогите мне, я в глубоком замешательстве.  
(файл см.выше)

попробуйте сделать с помощью цикла:  
(с VBA-грамматикой проблемы, только начал осваивать, код не проверял, знатоки мож подправят)  
 
i=val(target.cells.row) - находим номер строки  
for j=2 to 101 step 9 - цикл на 12 месяцев  
a=cells(9,j).formula  
b=cells(9,j+7).formula  
cells(i,j)=a  
cells(i,j+7)=b  
next  
 
вставьте в код, только сохраните резервную копию - у меня часто из-за этих экспериментов с VBA Excel виснет наглухо :))

{quote}{login=Максим}{date=25.06.2008 06:01}{thema=}{post}Вот к чему я пришел в результате :)  
Вроде бы все работает как нужно, но есть 2 проблемы:  
 
Первая  
Макрос корректно работает в таблице "Январь", но если изменять "Февраль", "Март" и так далее, то формулы по прежнему копируются в столбцах таблицы "Январь".  
Может быть возможно как-то строку Destination:=Range("B" & .Row & ":B" & .Row + .Rows.Count - 1) заменить на относительные величины, а не задавать жестко "B" или "I"    
Также как было в изначальном коде (0,-1) и т.п. ?  
А то я редактирую таблицу "Март", а данные изменются для "Января"    
Уточнение: речь идеть о групповом копи-пасте. Так как для If .Rows.Count < 1 Then используется старый код, который относительный, а для "группы" - новый.  
 
Вторая  
Не работают кнопки Undo(Отменить) Redo(Вернуть). Я понимаю, что буфер обмена при копировании с ячейки B9 замещается информацией об этой ячейке, но не вижу причин, почему перстают работать Undo(Отменить) Redo(Вернуть) ((((((((({/post}{/quote}  
 
 
i = Val(Target.Cells.Row)  
For j = 2 To 108 Step 9  
Cells(9, j).Copy  
Cells(i, j).Select  
ActiveSheet.Paste  
Cells(9, j + 7).Copy  
Cells(i, j + 7).Select  
ActiveSheet.Paste  
Next  
посмотрите, примерно тоже самое, вставлял после  
If Not Application.Intersect(Target, myKontrRange) Is Nothing Then  
хорошо когда формул чуть-чуть и прописаны они через равное количество столбцов :)