Свод нескольких файлов Excel в один

[Ирина3434]

Добрый день!
Возникла проблема, с которой мне уже Ваш форум помог, в особенности пользователь EducatedFool. (http://www.programmersforum.ru/showthread.php?t=39712)
Нашла макрос, который соединяет данные из разных файлов в папке в одну сводную. Прекрасно, макрос работает. Но, если у меня в файлах стоят формулы, а не значения, то он соединяет данные некорректно, идет смещение строчек, а соответственно и формул.
Как преобразовать макрос, чтобы он брал не формулы из файлов в папке, а значения этих формул?

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, "*.xls")
    
    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
End Sub

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор


Буду очень благодарна за помощь!