Macro para pegar formula con rango variable

Buen dia, recurro a ustedes nuevamente en busca de ayuda, tengo un pequeño problema con una macro. Tengo programada una macro que debe pegar una formula para poder comparar las distancias entre puntos y asi poder sacar un recorrido optimo basado el teorema de pitágoras, la prueba la he realizado con 52 puntos y corre bien, el problema es que requiero hacerla con un numero muy grande de puntos y me veo en la obligación de realizar un ciclo en la macro, y mi conocimiento en el tema es bastante pobre.

este es el código de la parte de la macro que realiza el pegado de la formula

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))"

y terminaría con 52 puntos asi:

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

como se puede ver la formula se va pegando en la celda siguiente a la derecha pero aumentando en una fila hacia abajo, ademas hay dos variables dentro de la formula del teorema también van aumentado.

Muchas gracias por la ayuda la verdad es de gran importancia y no he podido entender el tema de los ciclos y las variables dentro de la formula