А как изменить размерность массива с солхранением значений?

Цикл, кстати, не обязательно запускать для всех элементов проверяемого диапазона. Чтобы зря не перебирать весь диапазон, можно использовать цикл с условием, типа:  
Пока условие выполняется (в данном случае, пока год = 2008), делать то-то и то-то, т.е. конструкии    
Do while  
...  
...  
...  
Loop

For Next быстрее выполняется, и если нет необходимости проверять условие на каждой стадии прохода цикла, предпочтительнее использовать его.

при таком коде какое будет значение у элементов массива my_Arr(0), my_Arr(1)?

Я ReDim Preserve не использую - даже непомню, когда практически было необходимо.  
Обычно сразу задаю массив по максимуму (в данном случае по размеру исходного массива), потом заполняю, потом выгружаю заполненную верхушку.  
ReDim Preserve не использую потому, что на каждом шаге массив переписывается заново, что на больших объёмах (что обычно бывает на практике) заметно медленнее, чем выше описанный способ.  
Вот что Вы потом с этими отобранными данными делать будете?

Спасибо огромное за советы, все способы отличные!

Не соображу, как изменить размерность двумерного массива.  
Сначала ReDim задавал в цикле и удивлялся, почему на лист выводятся нули и только последнее значение :)  
Позже вывел ReDim с максимумальной размерностью перед циклом.    
 
На лист заносятся все даты с выбранным числом месяца (например, 15.??.??), которые попадают в период между двумя датами. Во второй столбец - единицы (позже будут и двойки, это пока не важно).  
 
Dim ArrM() As Date, nath As Date, kon As Date  
Dim dd As Date, day1 As Byte, i&  
   With Worksheets("Лист3")  
       nath = .Range("F1") ' начальная дата  
       kon = .Range("F2") ' конечная дата  
       day1 = .Range("G2") ' день месяца  
   End With  
ReDim ArrM(1 To 20, 1 To 2)  
i = 1  
   While DateSerial(Year(nath), Month(nath) + i - 1, day1) < kon  
       dd = DateSerial(Year(nath), Month(nath) + i - 1, day1)  
'        ReDim ArrM(1 To i, 1 To 2)  
       ArrM(i, 1) = dd  
       ArrM(i, 2) = 1  
       i = i + 1  
   Wend  
'ReDim Preserve ArrM(1 To i, 1 To 2)  
'ReDim Preserve ArrM(i)  
 
   Worksheets("Лист3").Range("A2"). _  
               Resize(UBound(ArrM, 1), UBound(ArrM, 2)).Value = ArrM  
 
 
В таком варианте работает, но на лист выгружается лишнее (строки больше i).  
Как правильно записать ReDim Preserve для двумерного массива?

только хотел написать про файлик ))  
Сейчас посмотрим...

{quote}{login=Юрий М}{date=08.01.2012 01:02}{thema=}{post}Dim ArrM() As Date - это что?{/post}{/quote}  
Динамический массив с данными в формате ДАТА.  
По крайней мере, Гарнаев указывает типы данных.

>>Как правильно записать ReDim Preserve для двумерного массива?  
Когда в а набрали значения:  
redim preserve a(1 to ubound(a),1 to 2)

Не за что, Вить.  
 
По поводу Preserve я не очень уверен, т.к. на сколько я знаю, через Preserve можно менять размерность только внешней границы,    
 
Preserve (1 to тут_менять_нельзя, 1 to тут_менять_можно)  
 
 
Павел  
 
P.S. Сейчас попытаюсь ещё немного оптимизировать твой код

Ну можно Preserve двум параллельным одномерным массивам делать :)  
Только потом перед выгрузкой с ними будет мутотень - вероятно надо будет циклом переложить в созданный под размер двумерный.  
Ну и если данных много - то Preserve имхо будет подтормаживать...

Вить, вот посмотри  
 
Sub Test()  
Dim a() As Byte  
ReDim a(10, 20)  
ReDim Preserve a(10, 30) 'работает  
 
ReDim a(10, 20)  
ReDim Preserve a(30, 30) 'не работает  
End Sub  
 
Я тут 2 дня назад создавал тему по этому поводу  
http://www.planetaexcel.ru/forum.php?thread_id=36160

Да, вот эксперимент:  
 
 
Sub tt()  
Dim a(), i&, tm!  
tm = Timer  
For i = 1 To 100000  
ReDim Preserve a(1 To i)  
a(i) = i  
Next  
Debug.Print Timer - tm  
End Sub  
 
Теперь увеличьте число итераций вдвое...