Как определить имя столбца изходя из даты

[vanekkk]

Добрый день!

У меня следующий вопрос.
Как определить имя столбца изходя из даты.
Собственно есть таблица с данными, как сделать так, что бы в таблице в столбик сегодня попадали данные из столбика с сегодняшней датой?

[IgorGO]

1. стиль ссылок R1C1
2. в любую ячейку копируете эту формулу

=ИНДЕКС(R;ПОИСКПОЗ(СЕГОДНЯ();R1;))

3. копируете ячейку в любые другие

[27102014]

Sub Макрос()

R = Range("S1") 'сюда ставим формулу =СЕГОДНЯ()

Range("A:O").Find(R).Select
h = ActiveCell.Column

For i = 2 To Cells(Rows.Count, h).End(xlUp).Row

Cells(i, 19) = Cells(i, h).Value

Next

End Sub

[vanekkk]

Спасибо большое!