Спасибо огромное, вроде бы работает. Вы меня очень выручили.
Скажите пжлс, а как можно самому научиться писать макросы. Я формулы писать умею, а вот макросы для меня почти темный лес. Как построить процес изучения?
И еще раз спасибо!!!!!!!!!!!

У меня есть несколько одинаковых файлов с одинаковыми шапками в таблицах. В таблицах некоторые ячейки заполняются по формуле. Мне необходимо объединить данные в новом файле на одном листе. Информация должна переноситься как значения.
Кто может помогите пжлс. Файл прилагаю. в нем есть макрос, но он переносить с формулами, а мне необходимы значения. Как переписать макрос, чтобы скопированные диапазоны переносились как значения.

всем добрый вечер, если кто может помогите пжлс, срочно надо решить проблему. Есть макрос, который переносит данные с других листов, в которых указаны формулы, а мне необходимо копировать как значения. Макрос прилагаю. Что мне в нем необходимо исправить

Sub St()
'Код рассчитан на то, что вид исходных таблиц сверху
'и снизу меняться не будет. Т.е. жёстко прописано количество
'дополнительных строк сверху и снизу.

Const fldr = "C:\Users\ната\Desktop\макрос\"  ' Путь к папке с файлами, можно добавить
                           ' стандартный диалог выбора папки или диалог
                           ' выбора самих файлов для обработки
                           
Dim strFile As String, wb As Workbook, wsSum As Workbook

Application.ScreenUpdating = False  'нет мелькания на экране
Set wsSum = ThisWorkbook
strFile = Dir(fldr & "*.xlsx")
Do While strFile <> ""          'Цикл по файлам

Set wb = Workbooks.Open(fldr & strFile, ReadOnly:=True)
   
With wsSum.Sheets(1)
   iLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
   .Cells(iLastRow, 1).Value = Now()
   Set tbl = wb.Sheets(1).Range("A7").CurrentRegion ' определяет именно таблицу
   tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
   tbl.Columns.Count).Copy .Range(.Cells(iLastRow, 2), .Cells(iLastRow, 2))