Help need understanding footers

I am new at VBA, my code is very dirty however it works and my project is 99 percent complete. My project is to take a bunch of different size excel tabs and have them print to one PDF. After a 100 hours of research I found that this is almost impossible so I decided that I would copy ranges from each tab to word and print as one big formatted document. This works prefect however the code I found on the internet for my footer to display, works but I do not understand it enough to modify it. Below I will post what works, what I can't get to work.

this works (page x of x):

Please Login or Register  to view this content.

This is what I recorded using macro recorder however its from within the temp word file and not from excel write to the temp word file.

on right footer:
Printed &[Date] &[Time]

on left footer:
CA4-cs-060 Gas Divider Calibration Certificate
Originated : 10-6-2009 Revised: 11-6-12
Page &[Page] of &[Pages]

Code from recording:

Please Login or Register  to view this content.

I would like to either use this code or understand how to modify the code that is working...either or, please help.