Concatenación de Cadenas...ayuda please

[Guadalupe]

Hola, ya se como hacerle ala pregunta que les puse ayer, jajajaj pero mi problema es que no se como plantearlo.


se que existe lo de Concatenación de Cadenas.

lo que quiero hacer es leer una celda de excel (ejem. "A1") y de acuerdo con lo que diga(ejem. "Grande"), poner un resultado en otra celda en el mismo libro.hoja (ejem. "33")

osea que si en mi celda A1 dice Grande, que me ponga en la celda B1, 33.

esta es una parte de mi codigo, porfavor ayudenme, me estoy ahogando en un vaso de agua lose, pero no se como se hace..(solo se que tengo que estar leyendo celda por celda.)

Dim v_fila AsInteger 'Mi variable para que lea la celda


v_fila = 1 'Variable = 1, para que valla recorriendo la celda

Do

oHoja2.Range("A" & v_fila) = oHoja2.Range("22").Value ' Aqui oHoja2 es mi hoja, pero me sale error. no me lee nada, ni me pone resultado, y ni si siquiera se com plantear diciendo que el la celda B2 me ponga el resultado

Loop