Formülü macro olarak düzenlemek

[k0081]

Merhaba arkadaşlar;

    Function DArea1(x)
     DArea1 = (x/2) ^ 2 * Pi
    End Function

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

Function Formul(cell As Range) As String
Formul = cell.FormulaLocal
End Function

yukarıda vermiş olduğum kod örneğinde daire alanı formülünü macro içinde kaydettim..

Şunu yapmak istiyorum; (kesit alanı hesaplatmak)

D19 = ø15m
D20 = ø12m

=Kesit_alan1(D19;D20) = 63,61m² şeklinde bir formül kaydetmek isitiyorum,, nasıl yapabilirim ?