Prueba con esta función que acabo de crear (cópiala y pégala en un módulo).
Código:
Function BuscarArticulo(celda As Range)
datos = Split(celda, ";")
BuscarArticulo = datos(2)
End Function
Luego, para llamar a la función, simplemente pon esto:
donde
celda es la celda que contiene el dato ese tan largo (A1, A23, J56, M68, etc.)
Salu2