Error 438 en tiempo de ejecución

[Cerrado]
Denunciar
-
Hola,

tengo un problema con la macro no me permite registrar un articulo y me sale error 438 en tiempo de ejecución y al dar clic en DEPURAR me sale esto:

ActiveWorkbook.Worksheets("BaseMovimiento").Sort.SortFields.Add2 Key:=Range( _
"H1:H10000"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal