Как отредактировать свой шаблон.xlt из книги.xls, созданной на его основе?

Sub OpenTemplate()
    Dim wb As Object
    Dim ws As Object
    Dim XL As Object
    Set XL = CreateObject("Excel.Application")
    XL.Visible = True                        'enables us to see what's happening on debug.
    XL.Workbooks.Add "D:\Назначения.xltm"
    Set wb = XL.ActiveWorkbook               'the new workbook is referenced by "wb"
    Set ws = wb.Sheets(1)
    With ws
        .Cells(1, 1).Value = Date
        .Cells(1, 2).Value = Now
        .Cells(1, 3).Value = Year(Date)
        .Cells(1, 4).Value = Environ("Username")
    End With
End Sub