利用vba在excel的单元格里面插入date函数，其中需要date函数引用其他单元格，但是一直提示运行时错误’438’：对象不支持该属性或方法

请问各位，我利用vba在excel的单元格里面插入date函数，其中需要date函数引用其他单元格，但是一直提示运行时错误’438’：对象不支持该属性或方法，谢谢~

Sub zidong()
Set mm = ThisWorkbook.ActiveSheet
filepath = ThisWorkbook.Path
Set wp = Workbooks.Open(filepath & "\模板.xlsm")

For i = 1 To 54 Step 1
wp.Sheets("模板").Range("A" & 13) = Application.WorksheetFunction.Date(Year(Range("A" &12)), Month(Range("A" &12)) + 2, 0)
a = a + 1
b = b + 1
Next i

End Sub

运行结果及报错内容

运行时错误’438’：对象不支持该属性或方法