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

[Termit7777]

Доброго времени суток.
Столкнулся с проблемой свода данных из нескольких файлов в один.
Суть в краце такова есть несколько НОП и каждый в отдельности заполняет свой файл на выходе нужно чтоб данные из Этих файлов подтягивались в отдельный файл также как они записаны в отдельных только в одну сводную таблицу Файл Сводная по ХО Андрей - Резерв Лист Сводные таблицы.

[Termit7777]

Все попытки перелопатить Sub ОчисткаСводнойТаблицы()
Application.ScreenUpdating = False
Me.Range("5:5000").ClearContents
Me.Range("5:500").EntireRow.AutoFit
End Sub

Sub ЗаполнениеСводнойТаблицы()
Application.ScreenUpdating = False: Application.DisplayAlerts = False

Dim coll As New Collection, wb As Workbook, sh As Worksheet, newRow As Range
Mask = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "*.*")

Filename = Dir(Mask)
While Filename <> "" ' перебираем все файлы в текущей папке
If Not Filename Like ThisWorkbook.Name & "*" Then coll.Add Filename
Filename = Dir
Wend

On Error Resume Next
For Each Item In coll
Set wb = Workbooks.Open(Replace(ThisWorkbook .FullName, ThisWorkbook.Name, Item), , True)
If Not wb Is Nothing Then
Set sh = wb.Worksheets(1)
LastRow = sh.Range("a65000").End(xlUp).Row
If LastRow > 4 Then ' если есть заполненные строки
For i = 5 To LastRow
Set newRow = Me.Range("a65000").End(xlUp).Offset (1)
sh.Rows(i).Copy newRow
newRow.EntireRow.AutoFit
Next i
End If
wb.Close False
End If
Next
Application.DisplayAlerts = True
Нечего не дало не могу понять в где грабли... но мнеб подошло идеально(...

[Termit7777]

Ну вроде дело пошло... Есть результат но процесс идет очень медлен и сильно подгружает машинку.(

[Termit7777]

И снова писец Куда копать... Сделать норм слияние данных не получается. Где баг В макросе. Выложил что имеем. Не смотрите на то что табличка такая я просто лопачу макрос. Где Грабли??? В сводную очень долго данные Сливаются.

[Termit7777]

Черновой вариант есть ток работать не хотит корректно. Нужно с Файлов 1-7 вытащить все в Свод Таблицу в лист база. Спецы пасатрите макрос где Грабли.

[Rom1k06]

Сократи файлик а то 3 метра не хотся грузить

[Termit7777]

Сжал и и убил данные в сводной.

[Termit7777]

Там трабла в макросе не могу найти((( и чет долго инфу из файлов тянет при этом лагает жесть.. Работаю в 2010.

[Termit7777]

Таксь макрос вроде тянит инфу но не хочет производить очистку то есть чистит но не все где копнуть???

[Termit7777]

Не могу побороть посмотрите плиз Где Трабла? и почему так долго тянется инфа?