Excel-Makro zum Kopieren von Zellbereich

Sub FilesListen()
Application.ScreenUpdating = False
Dim Dateien As Integer
Dim DateiName As String
With Application.FileSearch
.NewSearch
.LookIn = "C:\Users\niklas\Desktop\excel test\"
.SearchSubFolders = True
.Filename = "*.xlsx"
If .Execute() > 0 Then
For Dateien = 1 To .FoundFiles.Count
DateiName = Dir(.FoundFiles(Dateien))
If DateiName  ThisWorkbook.Name Then
Workbooks.Open Filename:=.FoundFiles(Dateien)
Workbooks(DateiName).Sheets("Angebot").Range("K1:K2").Copy          ThisWorkbook.Sheets(" _
AngebotAuflistung").Range("I13:J13")
Workbooks(DateiName).Close
End If
Next Dateien
End If
End With
Application.ScreenUpdating = True
End Sub