[AdmiralMK]

Dim iRow As Integer
Dim iClm As Integer

Добавлено через 1 минуту
Dim iRow As Integer
Dim iClm As Integer


FList = Application.GetOpenFilename("Excell (*.xls), *.xls", , "Open", , True)
For Each FName In FList
Application.Workbooks.Open FName
Application.ActiveWorkbook.Sheets(1).Select

Добавлено через 3 минуты
With ActiveSheet.UsedRange
iRow = .Row + .Rows.Count - 1
iClm = .Column + .Columns.Count - 1
End With

Cells(iRow + 1, 1).Value = FName

Next