convert code from filter to loop with array for big data

Hello
I want changing this code for big data . every time increase data I note code will be slow . currently data are 25000 rows and will increase .
it will filter between two dates .

Sub FilterData()
Dim tm As Double
Dim startDate As Long, endDate As Long
tm = Timer
startDate = sheet2.Range("C2").Value
endDate = sheet2.Range("C3").Value
sheet2.Range("A6").CurrentRegion.ClearContents

With sheet1.UsedRange
    .AutoFilter 1, ">=" & startDate, xlAnd, "<= " & endDate
    .SpecialCells(xlCellTypeVisible).Copy sheet2.[A6]
    .AutoFilter
End With
MsgBox Format(Timer - tm, "0.00")
End Sub

thanks