Ayuda con una macro

No lo he testeado, me parece que el código hace lo que necesitas.

Checalo y comentas.

Saludos.

Muchas Gracias OcruzG me ayudaste bastante

Espero que el siguiente procedimiento te ayude.

Sub Piramida()

Dim fila As Integer

fila = 7

Do While Not IsEmpty(Cells(fila, 19))

Cells(fila, 19).GoalSeek Goal:=Cells(fila, 10), ChangingCell:=Cells(fila, 15)
fila = fila + 1
Loop

End Sub


Saludos.