makroyu her satıra nasıl uyarlayabilirim

[mustafayılmaz]

Sub GÖRECELİ()
'
' GÖRECELİ Makro
' Makro mustafa tarafından 05.01.2007 tarihinde kaydedildi.
'

'
Range("O13").Select
Range("O13") = g
a = Range("c13") - (((Range("c13") * Range("d13") / 100)))
b = a - a * Range("f13") / 100
c = b - b * Range("h13") / 100
d = c - c * Range("j13") / 100
E = d - d * Range("l13") / 100
g = E + E * Range("N13") / 100
ActiveCell.FormulaR1C1 = g
End Sub

yukarıda yazdığım kodu her satırda uygulamak istiyorum yardımcı olursanız sevinirim

 

[Levent Menteşoğlu]

Uygulayacağınız hücre aralığını verirmisiniz.

 

[mustafayılmaz]

c1 O1000 arası

 

[Levent Menteşoğlu]

Sorunuzdan bir şey çıkaramadım. Dosyanızı eklermisiniz.