Rellenar columna del 01/01/aaaa hasta el 31/12/aaa

Hola.
Necesito rellenar una columna con fechas desde el 1 de enero hasta el 31 de diciembre y que sirva para cualquier año. Es decir, al pulsar el botón "Crear año" se tomará el año de la fecha actual y en la celda B9 se colocará 01/01/2010. Pensaba usar la función [Selection. DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= xlDay, Step:=1, Stop:=40209, Trend:=False]. Pero no sé cómo indicarle el tope de 31/12/aaaa porque no veo la forma de que lo admite el argumento Stop:=
Espero haber expresado con claridad lo que necesito y que podáis ayudarme.
Gracias.