Visual Basic - Rellenar celda

Hola buenas tardes
disculpen no se si alguien pueda apoyarme con un problema que tengo

desde vb6 estoy manipulando un libro de excel donde en una hoja tengo dos columnas la columna A esta completamente en blanco y la columna B tiene cantidades y ay veces que esta columna incrementa el numero de datos que tiene pero en la columna A necesito que me coloque APROBADO en toda la columna tomando de referencia la columna B

esperando puedan apoyarme
soy nuevo en esto y se que a lo mejor es sencillo pero a mi se me dificulta un poco

esperando puedan apoyarme gracias

pues solo colocando una validacion

con el objeto excel con el que manipulas


objExcel.Range(B1).value ... eso te da el valor de B1 , haras un IF y segun esto colocaras el valor en A1

que tal asi_'

es perfecto muches gracias me sirvio de mucho Andres leonardo te agradesco mucho