index außerhalb der gültigen bereich bereich

Sub einlesen()
Workbooks.OpenText Filename:="H:\rtw1\fit\intern\fit_2i\50_Equipment\5020_Handler\Retestauswertung\bin5_auswertung_quelle.txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=True, _
Comma:=True, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1))
Cells.Select
Selection.Copy
Windows("H:\rtw1\fit\intern\fit_2i\50_Equipment\5020_Handler\Retestauswertung\bin5_auswertung_neu.xls").Activate
Sheets("bin5_auswertung_datei").Select
Cells.Select
ActiveSheet.Paste
Windows("bin5_auswertung_quelle.txt").Activate
ActiveWorkbook.Close
End Sub