Ordenar una tabla de un libro desde otro (VBA-Excel)

Según el siguiente código:

Function asignar_notario()

Dim rango_datos As Range
Dim hoja_destino
Dim ruta As String

Dim x10 As New Excel.Application
Dim archivo_destino As New Excel.Workbook

ruta = "D:\maCo\Job\OC\Own Tools\rol_notarios\Develop"
Set archivo_destino = x10.Workbooks.Open(ruta & "\rol_notarios_db.xlsm")
Set hoja_destino = archivo_destino.Worksheets("tabla_notarios")

'*-*-*-*-*-*-*-*inicio:orden de tabla notarios*-*-*-*-*-*-*-*-*
'Ordena la tabla según y en orden, los criterios:
'1. Usuario activo
'2. Cantidad de Casos asignados
'3. Orden alfabetico

With hoja_destino

.Range ("C5:F58")
.Sort.SortFields.Clear
.Sort.SortFields.Add key:=Range("E5:E58"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
.Sort.SortFields.Add key:=Range("F5:F58"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add key:=Range("D5:D58"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("tabla_notarios").Sort
.SetRange Range("C5:F58")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With

'*-*-*-*-*-*-*-*fin: orden de tabla notarios*-*-*-*-*-*-*-*-*

End Function

Me arroja un error de automatización.

El código, va a formar parte de otro código que necesito para que me indique automáticamente, cual es el siguiente "Notario" para asignarle trabajo, eso según las condiciones que definí, por ello necesito que me ordene la lista y que luego me indique el primer nombre de esta.