Insertar

hola, 'anonimo/a' !

Tengo la siguiente formula:
Sub Inserta()
Dim Celda As Range
For Each Celda In Range("F:F")
If Celda = "" Then Exit Sub
If Celda > Celda.Row Then
Celda.Offset(, -4) = "=SQRT(POWER((R1C3-xxx),2)+POWER((R1C4-yyy), 2))"
End If
Next
End Sub
Me falta indicar que xxx es igual a C* e yyy es igual a D*, donde el * es el numero de celda igual a F.

-> sustituye la linea con:
Celda.Offset(, -4) = "=SQRT(POWER((R1C3-xxx),2)+POWER((R1C4-yyy), 2))"

op1: haciendo las llamadas a las funciones de hoja de calculo [raiz y potencia]
Celda.Offset(, -4) = "=sqrt(power((c1-" & Celda.Offset(, -3).Address(0, 0) & _
"),2)+power((d1-" & Celda.Offset(, -2).Address(0, 0) & "),2))"

op2: SIN 'pasar' por las llamadas a las funciones...
Celda.Offset(, -1) = "=((c1-" & _
Celda.Offset(, -3).Address(0, 0) & ")^2+(d1-" & _
Celda.Offset(, -2).Address(0, 0) & ")^2)^(1/2)"

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.