Automatisierungsfehler

Private Sub Datum()
Dim L As Long
Dim objAl As Object
Dim vntOut As Variant
Dim vntDaten As Variant
Dim strOneLine As String
On Error GoTo ErrHandler
vntDaten = Workbooks("Daten.xlsx").Sheets("Tabelle1").Range("B2:D7000") 'muss geöffnet sein
Set objAl = CreateObject("System.collections.arraylist")
With ThisWorkbook.Sheets("Tabelle1") 'Anpassen
For L = LBound(vntDaten) To UBound(vntDaten)
If vntDaten(L, 1) = .Range("C2") Then
If vntDaten(L, 3) = .Range("C7") Then
objAl.Add (CDbl(vntDaten(L, 2)))
End If
End If
Next
With objAl
.Sort 'sortieren
vntOut = .toArray
End With
.Range("C59:C63").ClearContents
.Range("C59").Resize(UBound(vntOut) + 1) = WorksheetFunction.Transpose(vntOut)
End With
ErrHandler:
Debug.Print Err.Number, Err.Description, strOneLine
Resume Next
End Sub