kodda hata

[uguristanbul]

degerli arkdaslarım
data sayfasında E:sutunu tarih U:sutunu tutar ve K sutunu plasiyer kodu
kodlar sayfasında B:sutunu plasiyer koduna K(ocak) L(şubat) M(mart) N(nisan) O (mayıs)P(haziran) Q(temmuz) R (agustos)S(Eylul) T(ekim) U(kasım) V(aralık)sutunları aylara ait
olması gereken asagıdaki kod data sayfasının tarih ile temsilci kodlarını kontrol edip EĞER plasiyerin o ayda satısı varsa kodlar sayfasının kendi satırına işlemesi
kod asagıda nerde hata yapıyorum acaba?
Sub HESAPLA()
Set SK = Sheets("KODLAR")
SK.[K2:V65536].ClearContents
ADRES1 = "DATA!" & "K6:K" & [DATA!E65536].End(3).Row
ADRES2 = "DATA!" & "E6:E" & [DATA!E65536].End(3).Row
ADRES3 = "DATA!" & "U6:U" & [DATA!E65536].End(3).Row
For X = 2 To SK.[B65536].End(3).Row
For Y = 11 To 22
TARİH1 = CLng(DateSerial(Year(Date), Y - 10, 1))
TARİH2 = CLng(DateSerial(Year(Date), Y - 10 + 1, 0))
KRİTER = SK.Name & "!" & Cells(X, 2).Address(0, 0)
SK.Cells(X, Y) = Evaluate("=SUMPRODUCT((" & ADRES1 & "=" & KRİTER & ")*(" & ADRES2 & ">=" & TARİH1 & ")*(" & ADRES2 & "<=" & TARİH2 & ")*(" & ADRES3 & "))")
Next
Next

End Sub
dosya asagıda eklidir
saygılar sunuyorum