You'd need to add a few lines of code at the top, something like this:

Dim UserName As String

Do Until UserName < ""
UserName = InputBox("Please enter your name: ", "INPUT REQUIRED")
Loop

and then change one of the footer lines (.LeftFooter, .CenterFooter,
..RightFooter) like this:
..RightFooter = "&Z&F" & " " & UserName