Macro no se ejecuta cuando se abre en otro PC

Tengo esta macro:

Sub Ranking()
'
' Ranking Macro
'

'
Application.ScreenUpdating = False
Sheets("BASE_DATOS_RANKING").Select
Range("N27:P46").Select
Selection.Copy
Range("S27").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$S$26:$U$43").AutoFilter Field:=1
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("BASE_DATOS_RANKING").AutoFilter.Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("BASE_DATOS_RANKING").AutoFilter.Sort.SortFields. _
Add2 Key:=Range("S26:S46"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortTextAsNumbers
On Error Resume Next
With ActiveWorkbook.Worksheets("BASE_DATOS_RANKING").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
On Error Resume Next
Range("S43").Select
Sheets("Inicio").Select
Application.ScreenUpdating = True
End Sub

Pero cuando abro el libro en otro PC me dice error en tiempo de ejecución y me señala estas líneas en amarillo:

ActiveWorkbook.Worksheets("BASE_DATOS_RANKING").AutoFilter.Sort.SortFields. _
Add2 Key:=Range("S26:S46"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortTextAsNumbers

¿Alguien me puede explicar que es lo que pasa? Este código lo hice con el fin de ordenar de menor a mayor una tabla.