Makro kullanarak formülleri belli sayfalardaki hücrelere atamak

[Gold_Savt]

Formülleri sayfaların belli hücrelerine aktarmak
Elimde dört formül var. (Aslında daha fazla var, örnek olsun diye dört tanesini yazdım).
Bu formülleri diğer sayfalardaki hücrelere dağıtmak istiyorum

Formüller
=EĞER(A5="Finans";F5;K5) formülünü “Rapor” sayfasında (K5:K205) sütun aralığına;
=EĞER(B5="Bütçe";G5;L5) formülünü “Rapor” sayfasında (L5:L205) sütun aralığına;
=EĞER(C5="Bilanço";H5;M5) formülünü “Data” sayfasında (M5:M205) sütun aralığına;
=EĞER(D5="Kaynak";I5;N5) formülünü “Data” sayfasında (N5:N205) sütun aralığına;

gitmesi gerekiyor. Bunu makro ile yapmak mümkün müdür?
Örnek dosya ektedir

 

[hamitcan]

1.satır için;

Sub FormulKopyala()
    Sheets("Rapor").Range("K5:k205").FormulaLocal = "=EĞER(A5=""Finans"";F5;K5)"
End Sub

 

[Gold_Savt]

hamitcan teşekkür ederim.