"Размножение" составных формул

[obake]

Пожалуйста подскажите, как доработать макрос размножающий формулу
=СУММЕСЛИ('1 кв-л'!$C$2:$C$2200;СЦЕПИТЬ(F400;" ";G400);'1 кв-л'!$E$2:$E$2200) - ячейка L400, и проставляющий ее в пустые незащищенные ячейки шаблона в определенных столбцах. Шаблон имеет защищенные от изменений итоговые ячейки, в которых содержатся итоги (в виде формул). Между группами таких итогов имеются защищенные от изменеий пустые промежутки, выделены цветов. Как это можно сделать?

Sub Формула()
' Макрос записан 25.10.2008 (Виктор В.)
With Worksheets("Данные")
Set c = Cells.Find(What:="", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Offset(, 12).FormulaR1C1 = "=SUMIF('1 кв-л'!R2C3:R2200C3,CONCATENATE(RC[-10],"""",RC[-9]),'1 кв-л'!R2C5:R2200C5)"
Set c = Cells.FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
End Sub