Limit A Range (in Vba) To Where There Is Data

I am trying to define/name a range in vba. The range will always start in the same place, but as more information is appended to the data set it comes from, the more (or less) rows it can populate. I want to limit the length of the range because I am using it in a data validation drop down list and i do not want to see all of the blanks at the bottom of the list.

Checking the "Ignoe blanck cells" box in data validation did not make the spaces disappear, probably because there is data in an adjscent column that goes much further down the worksheet.

My current vba is:

ActiveWorkbook.Names.Add Name:="Date", RefersToR1C1:= _
"=Input!R4C4:R65536C4"

I want it to be the range that would highlight if I placed my cursor in R4C4 and hit Ctrl+shift+Down Arrow