Option Explicit
Sub Import1stLineOfXLSfiles()
Dim wksZiel As Worksheet
Dim wksQuelle As Worksheet
Dim wkb As Workbook
Dim sFile As String, sPfad As String
Dim lngLastRow As Long
Set wksZiel = ThisWorkbook.Worksheets(1)
sPfad = ThisWorkbook.Path & Application.PathSeparator
sFile = Dir("*.xlsx")
While sFile <> "" And sFile <> ThisWorkbook.Name
With wksZiel
lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
Set wkb = Workbooks.Open(sFile)
Set wksQuelle = wkb.Worksheets(1)
wksQuelle.Rows(1).Copy
wksZiel.Rows(lngLastRow + 1).Insert
Application.CutCopyMode = False
wkb.Close False
sFile = Dir
Wend
Set wksZiel = Nothing: Set wksQuelle = Nothing: Set wkb = Nothing
End Sub