Vba Kod Kısaltılması

[TUNCA ERSİN]

Sy. Hocalarım ;
burada hocalarımın yardımı ile bu kodları oluşturduk veri ve sayfaların fazla olması nedeniyle bağa bir kasılma ve yavaşlama olmaktadır. aşağıda yazan kodu nasıl kısa ve hızlı yapabiliriz. kodlara açıklama yazmanızı rica edecektim. Diğer sayfalara da uygulayacağım. Teşekkür ederim.

For i = 6 To 30 Step 4
Cells(2, i) = Evaluate("=LOOKUP(" & Cells(1, i).Address & ",$A$3:$A$503,$B$3:$B$503)")
Cells(3, i + 1) = Evaluate("=IFERROR(SUMIFS(akkoç!$A$3:$A$5000,akkoç!$M$3:$M$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") 'akkoç satış
Cells(4, i + 1) = Evaluate("=IFERROR(SUMIFS(akc!$A$3:$A$5000,akc!$n$3:$n$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") 'akc satış
Cells(5, i + 1) = Evaluate("=IFERROR(SUMIFS(özdoğa!$A$3:$A$5000,özdoğa!$n$3:$n$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' özdoğa satış
Cells(6, i + 1) = Evaluate("=IFERROR(SUMIFS(ağırnakliye_akkoc!$A$3:$A$5000,ağırnakliye_akkoc!$G$3:$G$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' akkoç ağır nakliye gelir
Cells(7, i + 1) = Evaluate("=IFERROR(SUMIFS(ağırnakliye_özdoğa!$A$3:$A$5000,ağırnakliye_özdoğa!$G$3:$G$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' özdoğa ağır nakliye gelir
Cells(10, i + 1) = Evaluate("=IFERROR(SUMIFS(yakıt_işlemleri!$f$3:$f$5000,yakıt_işlemleri!$c$3:$c$5000," & Cells(2, i).Address & ",yakıt_işlemleri!$n$3:$n$5000," & Cells(10, i).Address & ")," & Chr(34) & Chr(34) & ")") ' mazot
Cells(11, i + 1) = Evaluate("=IFERROR(SUMIFS(yakıt_işlemleri!$f$3:$f$5000,yakıt_işlemleri!$c$3:$c$5000," & Cells(2, i).Address & ",yakıt_işlemleri!$n$3:$n$5000," & Cells(11, i).Address & ")," & Chr(34) & Chr(34) & ")") ' adblue
Cells(15, i + 1) = Evaluate("=IFERROR(SUMIFS(akkoç!$x$3:$x$5000,akkoç!$m$3:$m$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") _
Evaluate("=IFERROR(SUMIFS(akc!$y$3:$y$5000,akc!$n$3:$n$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") _
Evaluate("=IFERROR(SUMIFS(özdoğa!$y$3:$y$5000,özdoğa!$n$3:$n$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") _
Evaluate("=IFERROR(SUMIFS(ağırnakliye_akkoc!$ı$3:$ı$5000,ağırnakliye_akkoc!$g$3:$g$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") _
Evaluate("=IFERROR(SUMIFS(ağırnakliye_özdoğa!$ı$3:$ı$5000,ağırnakliye_özdoğa!$g$3:$g$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' komisyon
Cells(16, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$AH$3:$AH$5000,tamir_bakım!$AF$3:$AF$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' maaş
Cells(17, i + 1) = Evaluate("=IFERROR(SUMIFS(akkoç!$n$3:$n$5000,akkoç!$M$3:$M$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' harcırah
Cells(18, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$ı$3:$ı$5000,tamir_bakım!$b$3:$b$5000," & Cells(2, i).Address & ",tamir_bakım!$f$3:$f$5000," & Cells(18, i).Address & ")," & Chr(34) & Chr(34) & ")") ' lastik
Cells(19, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$ı$3:$ı$5000,tamir_bakım!$b$3:$b$5000," & Cells(2, i).Address & ",tamir_bakım!$f$3:$f$5000," & Cells(19, i).Address & ")," & Chr(34) & Chr(34) & ")") ' periyodik bakım
Cells(20, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$ı$3:$ı$5000,tamir_bakım!$b$3:$b$5000," & Cells(2, i).Address & ",tamir_bakım!$f$3:$f$5000," & Cells(20, i).Address & ")," & Chr(34) & Chr(34) & ")") ' parça değişimi
Cells(21, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$ı$3:$ı$5000,tamir_bakım!$b$3:$b$5000," & Cells(2, i).Address & ",tamir_bakım!$f$3:$f$5000," & Cells(21, i).Address & ")," & Chr(34) & Chr(34) & ")") ' sarf malzemesi
Cells(22, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$t$3:$t$5000,tamir_bakım!$s$3:$s$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' hgs
Cells(23, i + 1) = Evaluate("=IFERROR(SUMIFS(ağırnakliye_akkoc!$j$3:$j$5000,ağırnakliye_akkoc!$g$3:$g$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") _
+ Evaluate("=IFERROR(SUMIFS(ağırnakliye_özdoğa!$j$3:$j$5000,ağırnakliye_özdoğa!$g$3:$g$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' yol belgesi
Cells(24, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$ac$3:$Ac$5000,tamir_bakım!$v$3:$v$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' kasko
Cells(25, i + 1) = Evaluate("=IFERROR(SUMIFS(tamir_bakım!$ab$3:$Ab$5000,tamir_bakım!$v$3:$v$5000," & Cells(2, i).Address & ")," & Chr(34) & Chr(34) & ")") ' trafik
Next i