Создание сводной таблицы

[tinka]

Как из нескольких файлов *.xls создать сводную таблицу, с суммированными значениями из исходных файлов. Формат сводной таблицы тот же.

[tinka]

Просуммировать получилось, но по всем строкам листа, а нужно ограничиться первыми 130 ячейками.
Может кто подскажет как.

Сама процедура перебора:

For Each fl In Папка.Files
    If fl.Name Like "*.xls*" And fl.Name <> ThisWorkbook.Name Then
        Set wb = Workbooks.Open(Filename:=fl, UpdateLinks:=False, ReadOnly:=True)
        With wb.Sheets("1.1.1.")
            Set rng = .Range("C7:V" & .Cells(Rows.Count, 1).End(xlUp).Row)
            rng.UnMerge
                For Each pz In rng.SpecialCells(xlCellTypeConstants)
                    pz.Value = CDbl(pz.Value)
                Next pz
            If i = 0 Then
                X = .Range("A7:V" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
            Else
                Y = rng.Value: Call Сумма(X, Y)
            End If
        End With: wb.Close False
    End If: i = i + 1
Next fl