Forma de Usar Función SI anidada en Visual Basica for Aplication de MSExcel.

Hola Expertos, buenos días y de paso, Feliz Año!!.

Yo sigo trabajando.

Tengo esta Fórmula:

=SI.ERROR(SI(J2="";"";SIFECHA(J2;HOY();"Y")&SI(SIFECHA(J2;HOY();"Y")=1;" Año ";" Años ")&SIFECHA(J2;HOY();"YM")&SI(SIFECHA(J2;HOY();"YM")=1;" Mes y ";" Meses y ")&SIFECHA(J2;HOY();"MD")&SI(SIFECHA(J2;HOY();"MD")=1;" Día ";" Días "));"Error en el cálculo..!")

Quiero utilizarla, asi, como está, pero em VBA, es decir, convertirla en código, para que realice el cálculo automáticamente al abrirse el libro.

El rango donde fechas, todas distintas, está a partir de J2 y va hasta J643.

el resultado de esta formula, se debe escribir en el rango de K2:K643. Todos los resultados, seran diferentes, ya que las fechas son diferentes. Por eso, también necesito crear la forma de que me detecte hasta donde hay datos.

Gracias por su colaboración.