Error 438 en tiempo de ejecución

Cerrado
cmoranv - 4 dic 2019 a las 15:35
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
Consulta también: