Работа с фильтром - VBA

Формулировка задачи:

Добрый день. Помогите пожалуйста. Есть лист иксель в нем данные. Мне нужно отфильтровать данные по 2-м параметрам. 1) По автору книги (Заданному). 2) По дате от меньшей до большей. Это я сделал. Необходимо найти ближайшее значение даты после текущей (включая текущую). А как работать теперь с этим только выделенным диапазоном а не со всем листом в целом. Т.е. после выполнения макроса нужно что бы в msgbox выдало примерно такое сообщение. "Такой книги пока нет но будет "такого то числа")) Т.е. того которое равно сегодняшней дате либо ближайшее после нее т.е. по рисунку, если сегодня 21-е то должно сказать 22-е. Спасибо.

Решение задачи: «Работа с фильтром»

textual
                            Листинг программы 
                        

                            on error resume next
Set r = Range("Таблица1[На руках до]").SpecialCells(xlCellTypeVisible)
if err then
  msgbox "выборка является пустой"
  exit sub
end if
on error goto 0
'продолжение работы
                        