İlk tıkladığımda makronun çalışmaması

[TRUSA]

Arkadaslar Merhaba,

Asagida yazmis oldugum makronun bir kismi var. Bu bolumde, bir image uzerine tikladigimda istedigim tarih araligini secmeye calisiyorum. Sorunum su; ilk tikladigimda siralama yapmiyor fakat ikinci tikladigimda sorunsuz calisiyor gunlerdir sebebini bulamadim..
Cok degerli yardimlarinizi bekliyorum..Simdiden tesekkurler..

Private Sub Image15_Click()
Image14.Visible = True
DoEvents
Spreadsheet1.Range("C2:E5000").ClearContents
Sheets("DATA").Activate
Range("AC:AE").ClearContents
For ss = 4 To Sheets("DATA").Cells(65536, 1).End(xlUp).Row
If CLng(CDate(Cells(ss, 4))) >= CLng(CDate(DTPicker1)) And CLng(CDate(Cells(ss, 4))) <= CLng(CDate(DTPicker2)) Then
Sheets("DATA").Cells(ss, 31) = Sheets("DATA").Cells(ss, 2)
End If
Next ss

For dr = 2 To Spreadsheet1.Cells(2000, 1).End(xlUp).Row
q = WorksheetFunction.CountIf(Sheets("DATA").Range("AE:AE"), Spreadsheet1.Cells(dr, 1))
If q > 0 Then Spreadsheet1.Cells(dr, 3) = q
Next dr
Image14.Visible = False
End Sub