I have a range(thisRange) that I would like to populate the first column
with dates from January 1 to december 31 of an x year

Sub populateDate(yr as string)
Dim Myyear as date
dim thisrange as string
Dim xyear as string

Myyear = "Sales "& year(Worksheets("daily").range("b2").value
thisrange = "sales" & myyear
xyear - year(myyear)

How do I put in the dates for xyear?