Talvez um Loop que compare o tamanho da String e concatene um "9" no começo ja resolva seu caso,
Código: Selecionar todos
Do while activecell <> ""
if len(activecell) = 8 then
activecell = "9" & activecell
end if
activecell.offset(1,0).select
Loop