Macro para contar y concatenar

Hola expertos ojala me puedan ayudar con esta dificultad,el problema consiste en que tengo en una nombrada "vtp" un ID numérico el cual puede variar entre 4 , 5 y 6 caracteres,mi problema es que necesito ver como automatizar el archivo que busque el largo de la celda a2, si tiene 4 caracteres me concatene el numero del a1 con "Vt0000" si tiene 5"vt000" y 6 "vt00", esto lo debe colocar en la celda c2, y asi consecutivamente hasta recorrer toda la columna A siempre y cuando tenga datos.

Ojala me puedan ayudar .

Gracias