Do Until you find a cell with a value in date format

Hi,

I'm really new to VBA, and I was wondering if there was a way to loop a variable until it reaches a cell that is in date format. The problem is I have a column of dates that I want to copy, but i'm not always sure what row the dates will start on. I can't do End.xldown because occasionally there will be a formula or number in a cell above where the dates start. So I was hoping to find a way to determine the first cell that is in date format and go from there instead. Is this a possibility?

Thanks!