Спасибо кто пытался помочь.Тема закрыта .Решил все при помощи макроса.

Доброго всем вечера! Ребят вообще в стопоре. NET рыл,рыл да вот суда и пришел. Помогите со следующим, нужен макрос с промежуточным суммированием т.е. задача состоит в следующим .  
в Excel имеется таблица с очень большим количеством записей они все упорядочены по типу.Нужно что бы добавлялось строка после 16 строк записей, а в каждой 17 строке добавлялось слово итого и формула суммирования допустим А17=СУММ(А1:А16)далее А35=СУММ(А18:А34)и т.п . Если конечно это возможно .                  
                                                                  За ранее признателен..

Всё, разобрался, всем спасибо.

Hugo. Ну это тоже самое, проблем с тем чтобы набрать номера страниц в массив у меня нет, проблема именно в том, что worksheets не хочет переваривать в себе этот dlt выдаёт ошибку out of range.

{quote}{login=KukLP}{date=05.11.2011 04:46}{thema=}{post}Че так заморочено...  
Sub test1()  
   Dim x  
   For x = Sheets.Count To 2 Step -1  
       If Sheets(x).Range("B6") <> "" Then Sheets(x).Delete  
   Next x  
End Sub{/post}{/quote}  
Это условие я для простоты написал, мне важно чтобы номера листов брались из массива.

Извиняюсь, вот так:  
Sub test1()  
Dim dlt()  
ReDim dlt(20)  
v = 1  
For x = 1 To Sheets.Count  
Sheets(x).Select  
If Range("B6") <> "" Then  
dlt(v) = x  
v = v + 1  
End If  
Next x  
ReDim Preserve dlt(v - 1)  
Worksheets(dlt).Delete  
End Sub

Не могу понять, почему у меня не работает этот макрос,    
Ругается на Worksheets(dlt).Delete, пишет Subscript out of range.    
Есть идеи?  
Sub test1()  
 
Dim dlt()  
ReDim dlt(20)  
v = 1  
For x = 1 To Sheets.Count  
Sheets(x).Select  
If Range("B6") <> "" Then  
dlt(v) = x  
v = v + 1  
End If  
Next x  
ReDim Preserve dlt(v - 1)  
'For i = Sheets.Count To i Step -1  
'Cells(1, 1) = dlt(3)  
'Sheets(dlt).Select  
Sheets(dlt).Select  
'a = dlt(1)  
'Worksheets(dlt).Delete  
'Next i  
'Application.DisplayAlerts = False  
'Worksheets(Array(dlt)).Delete  
'Application.DisplayAlerts = True  
 
End Sub

В приведенном скрине в ячейке С103 задаемся любым значением. Ячейки с с104- с110 рассчитываются исходя из значения с103:  
**С104: =C99+C103  
 С105: =(C97-C102)/C97  
 С106: =2*(C110-C102)/C110  
 С107: =(1-((2*C102/C97)*(1/((1+C109^2)^0,5))))*((1-(0,75*(C109^2/(1+C109^2)^2)))^0,5)^-1  
**С108: =МИН(C105:C107)  
 С109: =C110/C97  
**С110: =C51*C104/C96  
**С111: =C28*C99/(2*C108*C101-C28)  
Как сделать через функцию ЕСЛИ или через скрипт VBA, чтобы прога сама проходила по столбцу С Если разница между с111 и с103 удовлетворяет определенному условию(=ABS((C111-C103)/C111)*100), то значение я ячейке с 103= должно остаться. Если же нет, то с103=с111 и расчеты ячеек с с104- с110 повторяются.  
**- самое важное

....При условии, что шапка одинакова.  
 
Такая проблема: Разные люди заполняют один шаблон. Как одному слить все это во едино? И чтобы после слияния в эти шаблоны никто не дополнял?