Generar código con palabras exceptuando vocales

Hola javi, Quiero realizar lo siguiente:
1. De un campo llamado "marca" quiero generar un codigo, cuando el nombre de la marca no excede 5 caracteres simplemente el codigo es el mismo, pero si los excede que obtenga 5 letras del mismo, pero exceptuando las vocales si no es la inicial del nombre y guiones, ejemplo
marca = "abac"  (no excede 5 letras)  = codigo = "abac", eso lo genero asi
cod=marca
IF LEN(cod) <= 5
    codgen = cod
    replace cod_marca WITH codgen
endif
pero lo siguiente no se muy bien como hacerlo, sin tener que generar tanto codigo y condiciones:
marca = "abac-compressor" (excede 5 letras) codigo= "abccm" eliminar "segunda a, - ,o"
Si existiera agregar sufijo ascendente "abccm1", "abccm2", etc
2. Problema, precisamente importe la lista de las marcas desde un archivo excel con más de 800 registros, pero no encuentro manera de eliminar el espacio después de la palabra, he intentado de mil formas durante dos días, y no logro, no funcionan los STRTRAN, ni los ALLTRIM o funciones similares, la única forma que ha servido es reescribir el nombre, o desde un formulario ir al final y con la tecla "delete" eliminar los espacios finales, pero para ese caso de pasar por cada registro manualmente, yo mismo generaría el código y lo quiero evitar. Muchas gracias