Anwendungs oder objektdefinierter fehler

Public varDateien1 As Variant
Public varDateien2 As Variant
Public wbk1 As Workbook
Public wbk2 As Workbook
Private Sub CommandButton1_Click()
Dim LstRow As Long
'Dim LstRowSp As Integer
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Set wbk1 = Workbooks.Open(Filename:=varDateien1(1))
LstRow = wbk1.Worksheets("Bestellliste").Cells(Rows.Count, 3).End(xlUp).Row
Set wbk2 = Workbooks.Open(Filename:=varDateien2(1))
wbk1.Sheets("Bestellliste").Range(Cells(Me.StartZ, Me.S1), Cells(LstRow, Me.S1)).copy _
Destination:=wbk2.Sheets("Bestellliste ").Range(Cells(Me.StartZ, Me.S2), Cells(LstRow, Me.  _
_
S2))
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
Public Sub FileA_Click()
'    Dim varDateien1 As Variant
Dim tempStr As String
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
'open File
varDateien1 = _
Application.GetOpenFilename("Datei (*.xls*),*.xls", False, "Bitte gewünschte Datei(en)  _
markieren", False, True)
'Me.Label1 = CStr(varDateien1.Name)
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
Private Sub FileB_Click()
'    Dim varDateien2 As Variant
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
'open File
varDateien2 = _
Application.GetOpenFilename("Datei (*.xls*),*.xls", False, "Bitte gewünschte Datei(en)  _
markieren", False, True)
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Me.S1 = 3
Me.S2 = 3
Me.StartZ = 9
End Sub