在另一张工作表中自动填充具有月值的日期的列

Question

该代码应在指定范围内自动填充所选月份的所有日期。它应填写L3：AQ3范围内的日期，但不填写。它仅填充第一个日期。哪个是Sheets("Plantilla").Range("L3").Value...

Private Sub Fecha()
Dim Mes As Date, EndDate As Date
Mes = Sheets("Llenado").Range("D2").Value
Sheets("Plantilla").Range("L3").Value = DateSerial(Month:=Mes, Day:=1, Year:=2019)
Fech = Sheets("Plantilla").Range("L3").Value
EndDate = DateSerial(Year(Fech), Month(Fech) + 1, 1) - 1
Sheets("Plantilla").Range("L3:AQ3").DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, Step:=1, Stop:=EndDate, Trend:=False
End Sub

Sheets("Plantilla").Range("L3:AQ3").DataSeries...上的错误1004