Auslesen/kopiere aber nicht alle Zeilen!

Sub Dateien_oeffnen()
Dim TmpDatei As String, Pfad As String
Dim LRow1 As Integer, LRow2 As Integer
Dim wsMaster As Worksheet
Set wsMaster = ThisWorkbook.Sheets("Sheet1")
ChDrive "C"
ChDir "C:\test\test1\"
TmpDatei = Dir("C:\test\test1\*.xls")
Application.ScreenUpdating = False
Do While TmpDatei  ""
LRow1 = wsMaster.Cells(Rows.Count, 1).End(xlUp).Row
Workbooks.Open TmpDatei
LRow2 = Workbooks(TmpDatei).Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
Workbooks(TmpDatei).Sheets("Sheet1").Rows("1:" & LRow2).Copy wsMaster.Cells(LRow1 + 1, 1)
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
TmpDatei = Dir()
Loop
Application.ScreenUpdating = True
End Sub