Ciclo para macro excel - pegar formula

Buen día, otra vez recurriendo a ustedes por ayuda, la verdad no he podido entender bien lo de los ciclos o bucles en excel y el problema del dia de hoy es exactamente eso.

Paso a contar mi problema:

Necesito realizar una comparación de cercanía de puntos, ya tengo montada mi formula y la forma de comparar los resultados, el problema radica en que esta tarea la debo realizar para unos 500 puntos o mas y es bastante tedioso tener que copiar la formula esa cantidad de veces.

Esta macro esta hecha hasta 52 puntos a comparar, este es el codigo:

Sheets("prueba").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = "=SQRT(((RC[-2]-R1C2)^2)+((RC[-1]-R1C3)^2))"
Range("E3").Select
ActiveCell.FormulaR1C1 = "=SQRT(((RC[-3]-R2C2)^2)+((RC[-2]-R2C3)^2))"
Range("F4").Select
ActiveCell.FormulaR1C1 = "=SQRT(((RC[-4]-R3C2)^2)+((RC[-3]-R3C3)^2))"

consecutivamente hasta :

Range("BB52").Select
ActiveCell.FormulaR1C1 = "=SQRT(((RC[-52]-R51C2)^2)+((RC[-51]-R51C3)^2))"

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

hay forma de crear un ciclo o algo parecido para poder automatizar esta macro ???

muchas gracias por su colaboración