You can find cell containing today date (you'll have to create your own action for it) , then read just that column to collection.
My code for Sheet.Find below. What - String to find, After - cell address to start search from, xlWhole - 1 to find exact patch, 2 - partial; returns address
Dim ws as Object = GetWorksheet(handle,workbookname,worksheetname,False)
address = """"
sheetexists = ws IsNot Nothing
If sheetexists Then
address = ws.UsedRange.Find(What,ws.Range(After),Type.Missing,xlWhole).Address()
End If
