Guardar text en columnas como valores

Estoy trabajando con códigos de identificación que tienen ocho caracteres de longitud (todos numéricos). Cada dos dígitos representa un identificador único. Por ejemplo, el código 10203040 es Vehículos (10), Camiones (20), 4×4 (30), Toyota (40). En una hoja de Excel, quiero que las personas puedan ingresar un código de 8 dígitos y mostrar los descriptores de nivel 1, 2, 3 y 4, así como la descripción completa. Cómo estoy logrando eso ahora es tomando el código de 8 dígitos, convirtiéndolo en text a columnas a través de ancho fijo, y luego haciendo una VLOOKUP en cada código de 2 dígitos. La macro para esto es:

 Sub Macro2() Dim UNSPSC As String UNSPSC = Range("A2") Range("B2") = UNSPSC Range("B2").Select Selection.TextToColumns Destination:=Range("B2"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(2, 1), Array(4, 1), Array(6, 1), Array(8, 1)), _ TrailingMinusNumbers:=True End Sub 

Mientras esto funciona, el problema es que cualquiera que realice varias búsquedas tiene que hacer clic en una advertencia molesta sobre el reemploop de las celdas en cada momento (el text de las columnas está oculto). ¿Hay alguna manera de almacenar el text en productos de columna como un valor o una cadena para que esta advertencia no se muestre (es decir, no hay sobrescritura de datos en las celdas)? Podría, teóricamente, extraer los valores en VLOOKUP dentro del código macro / VBA.

OP parece preferir apagar las alertas, pero por el bien de la respuesta, agregue:

 Range("B2:E2") = "" 

inmediatamente después de la statement Dim.