How to get data from 2 criteria (StartDatte to EndDatte)

[veranda]

If LBound(StartDatte) Or UBound(EndDatte) = -1 Then
listCari.AddItem "Nothing!"
Else
For i = LBound(StartDatte) To UBound(EndDatte)
With listCari
.AddItem
.List(.ListCount - 1, 0) = Worksheets("Data").Range("A" & i)


Help, im stuck with this.
need advice.
Thanks