Formülü Makroya Çevirmek

[drejan62]

Merhabalar,
Amacım g, d,a sütunundaki değerler aynı ise s sütununda bir satarında ACHTPRCK diğer satırında ise ACHTPRYT bulunan satırları rapor sayfasına taşımamk,

Ben bunu ektaki dosyada görüleceği üzere, alttaki formülleri makroyla girişini sağlıyorum.
V sütununa altaki formülü

=VE(G2>0;TOPLA.ÇARPIM((G2=G$2:G$10000)*(D2=D$2:D$10000)*(A2=A$2:A$10000)*("ACHTPRYT"=S$2:S$10000))>

W Sütununa altaki formülü girdikten sonra

=VE(V2=DOĞRU;G2>0;TOPLA.ÇARPIM((G2=G$2:G$10000)*(D2=D$2:D$10000)*(A2=A$2:A$10000)*("ACHTPRCK"=S$2:S$10000))>0)

makroya alttaki kodu girerek te rapor alıyorum.

For i = 1 To Range("w65536").End(3).Row
If Cells(i, "w").Text = "DOĞRU" And (Cells(i, "S").Text = "ACHTPRCK" Or Cells(i, "S").Text = "ACHTPRYT") Then Rows(i).Copy Sheets("rapor").Range("a65536").End(3)(2, 1)
Next i

Fakat veriler çok olunca takılıyor.
Süreci hızlandıracak nasıl bir makro yazabilirim acaba?
Teşekkür ederim