Formülü makroya çevirip uygulamak

[zfr10]

Selam arkadaşlar sayfamın rapor sayfasındaki C9 hücresindeki formülü makro çalıştır yöntemiyle koda çevirdim ama formülsüz kodu nasıl çalıştırabilirim.Diğer hücreleri de aynı şekilde düzenlemek istiyorum.
Yardımcı olursanız memnun olurum.
Saygılar...

 

[zfr10]

Sub Makro1()
Range("C9").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((GİRİŞ!R2C1:R65536C1=RC[-2])*(GİRİŞ!R2C2:R65536C2=RC[-1])*(GİRİŞ!R2C9:R65536C9=RC[3])*(GİRİŞ!R2C10:R65536C10=R7C[9])*(GİRİŞ!R2C13:R65536C13=RC[7])*(GİRİŞ!R2C17:R65536C17=R5C[9]),(GİRİŞ!R2C:R65536C))"
End Sub
çevirdiğim kod

 

[Mustafa MUTLU]

Bir Düğme koy sayfana.
Düğme üzerine Makronu ata
Düğmeye tıkladığında makron çalışır.