Запись в файл имен файлов - VB

Формулировка задачи:

День добрый
Имеется скрипт копирующий содержимое кучи файлов dbf в один xls. Проблема состоит в том, что нужно добавить еще один столбец в конечный файл, который будет содержать в каждой строчке из какого файла эта строка импортирована. Никто не сможет подсказать?

[SUB] DBF()

     myPath  , myName  , Wb  Workbook, clTarget  Range
    Application.ScreenUpdating = False
     Application.FileDialog(msoFileDialogFolderPicker)
        .Title = 
        .Show
         .SelectedItems.Count =    
        myPath = .SelectedItems() & Application.PathSeparator

    myName = Dir(myPath & )
     ThisWorkbook.Sheets()
          myName <> 
             Wb = Workbooks.(Filename:=myPath & myName)
            ActiveSheet.UsedRange.Copy .Cells(.UsedRange.Rows.Count + .UsedRange.Row, )

            Wb. SaveChanges:=False
            myName = Dir

 [/]

Решение задачи: «Запись в файл имен файлов»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> nRow <font color="blue">As</font> <font color="blue">Long</font>
....
    myName = Dir(myPath & <font color="teal">"*.dbf"</font>)
    <font color="blue">With</font> ThisWorkbook.Sheets(<font color="darkblue"><b>1</b></font>)
        <font color="blue">Do</font> <font color="blue">While</font> myName <> <font color="teal">""</font>
        <font color="#00AA00">' Запоминаем начало диапазона, который нужно будет заполнить</font>
            nRow = .UsedRange.Rows.Count + .UsedRange.Row
            <font color="blue">Set</font> Wb = Workbooks.<font color="blue">Open</font>(Filename:=myPath & myName)
            ActiveSheet.UsedRange.Copy .Cells(.UsedRange.Rows.Count + .UsedRange.Row, <font color="teal">"A"</font>)
            <font color="#00AA00">' Заполняем вставленные данные именем источника</font>
            .Range(.Cells(nRow, .UsedRange.Columns.Count + <font color="darkblue"><b>1</b></font>), .Cells(.UsedRange.Rows.Count + .UsedRange.Row, 
..UsedRange.Columns.Count + <font color="darkblue"><b>1</b></font>)).Value = myName

            Wb.<font color="blue">Close</font> SaveChanges:=False

            myName = Dir
        <font color="blue">Loop</font>
    <font color="blue">End</font> <font color="blue">With</font>
....
                        