Objekdefinierter Fehler: Range Objekt

Sub append()
Dim thisWKB     As Workbook
Dim sourceFile  As Workbook
Dim nData       As Integer
Dim numFiles    As Integer
Dim fileToOpen  As Variant
Dim i           As Integer
Dim nextFree    As Integer
fileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Select files to open", _
_
, True)
If TypeName(fileToOpen) = "Boolean" Then Exit Sub
numFiles = UBound(fileToOpen)
Set thisWKB = ThisWorkbook
For i = 1 To numFiles
Workbooks.Open fileToOpen(i)
Set sourceFile = Workbooks(Dir(fileToOpen(i)))
nData = sourceFile.ActiveSheet.Cells(Rows.count, 1).End(xlUp).Row
nextFree = thisWKB.ActiveSheet.Cells(1, Columns.count).End(xlToLeft).Column + 1
If i = 1 Then
sourceFile.ActiveSheet.Range(Cells(1, 1), Cells(nData, 2)).Copy thisWKB.ActiveSheet. _
Range(Cells(1, 1), Cells(nData, 2))
Else
sourceFile.ActiveSheet.Range(Cells(1, 2), Cells(nData, 2)).Copy thisWKB.ActiveSheet. _
Range(Cells(1, nextFree), Cells(nData, nextFree))
End If
Workbooks(Dir(fileToOpen(i))).Close
Next i
End Sub