Всем привет!

Написал небольшой макрос, который собирает все файлы в папке на один лист.
Проблема в том, что необходимо указать ( в первом пустом столбце ), в соответствии с скопированным диапазоном данных, название файла.

Подскажите, что и куда надо дописать. Над макросом не прикалываться))) Знаю, что сделан через одно место.

З.Ы. Почему у меня не отключается обновление экрана?

Sub CollectInfo()


Dim WBmacros As Workbook 'Ôàéë äëÿ âñòàâêè äàííûõ (ôàéë ñ ýòèì ìàêðîñîì)
Dim OriWB As Workbook 'îðèãèíàëüíûé ôàéë
Dim iTempFileName As String 'èìÿ ïîî÷åð¸äíî îòêðûâàåìîãî ôàéëà


With Application
.ScreenUpdating = False
.DisplayAlerts = False
Set WBmacros = ThisWorkbook


Const DirLoc As String = "C:\Îáðàáîòêà ôèëèàëîâ ÑÈÀ\"
iTempFileName = Dir(DirLoc & "*.xls")

Do While iTempFileName <> ""

Set OriWB = Workbooks.Open(Filename:=DirLoc & iTempFileName, ReadOnly:=True)

OriWB.Worksheets(1).Range("A1").CurrentRegion.Select
Selection.Resize(Selection.Rows.Count - 1).Offset(1).Select
Selection.Copy

WBmacros.Activate

With ActiveSheet
.UsedRange.Select
.Cells(.UsedRange.Rows.Count + .UsedRange.Row, 1).Select

End With


ActiveSheet.Paste
OriWB.Close saveChanges:=False

iTempFileName = Dir

Loop

.DisplayAlerts = True
.ScreenUpdating = True
End With

End Sub

Про "миф" я догадался. А вот с остальным, как непросвещенному пользователю, сложно.

За совет про тотал командер спасибо, попробую разобраться.

Как называется функция в тотал командер? И если можно, в кратце, как она мне поможет?