VBA-Kopieren "eingrenzen"

Sub Dateiliste_Öffnen()
'   erstellt von Hajo.Ziplies@web.de
' http://home.media-n.de/ziplies/
'   alle Dateien eines Ordners öffnen
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim Dateiname As String
strVerzeichnis = "C:\Testdateien_Excel\Test_Acht\"
StrTyp = "*.xls"
Dateiname = Dir(strVerzeichnis & StrTyp)
Do While Dateiname  ""
Workbooks.Open Filename:=strVerzeichnis & Dateiname
If ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row > 1 Then
Rows("2:" & ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row).Cut _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
End If
ActiveWorkbook.Close True
Dateiname = Dir
Loop
End Sub