pass a value to cell on open

Hi all I wish to pass the value from a userform to a new file that i'm opening from a template. so far ive got the code to open the template i need to pass the info to the required cells

Workbooks.Open ("C:\Users\timpe\Desktop\tr800.xltm")
Dim tempWB As Workbook
Set tempWB = Workbooks(ActiveWorkbook.name)
With tempWB
.SaveCopyAs "C:\Users\timpe\Desktop\testing\Template1.xlsm"
End With

kind regards tim