formülleri macroya çevirme

[myteks]

Kod: [Seç]

Sub Hesapla()
For i = 2 To Range("l65536").End(3).Row
Range("l" & i).Value = Range("j" & i).Value * Range("k" & i).Value * 4 * 1.2 * Range("ı" & i).Value
Next i
End Sub
'L=J2*K2*4*1,2*I2  örnek yukarıdadır

alttaki formülleri yapamadım bilgili arkadaşlar yardımcı olurmusunuz.
'M=(C2*D2*2+E2*F2*2+G2*H2*2)*I2*1,2
'AE = (L2 + M2) * N2 * 1
'AF = (AE2 + O2 + P2 + Q2 + R2 + S2 + T2 + U2 + V2)
'AM = AF2 + AG2 + AH2 + AI2 + AJ2 + AK2
'AN = AM2 / AL2

[Bülent Öztürk]

Abdullah bey, makro kaydetme yöntemi ile denediniz mi?