Kopieren von Daten aus mehreren Dateien

Private Sub CommandButton1_Click()
Dim varDateien As Variant
Dim lngAnzahl As Long
'set variables
Set Wkb = ThisWorkbook
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
'open Files
varDateien = _
Application.GetOpenFilename("Datei (*.xlsb),*.xlsb, Datei (*.xlsx),*.xlsx, Datei (*.xls),*. _
xls", False, "Bitte gewünschte Datei(en) markieren", False, True)
'copy Files
For lngAnzahl = LBound(varDateien) To UBound(varDateien)
Set Wkb2 = Workbooks.Open(Filename:=varDateien(lngAnzahl))
Wkb2.Sheets(Me.MonatImp).Range("$A$5:$Y$299").Copy _
Destination:=Wkb.Sheets(Me.MonatImp).Range("A" & Wbk.Sheets(Me.MonatImp).Range("A299"). _
End(xlUp).Row + 2)
Wkb2.Close
Next
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub