Did you retain the QR code in the original macro, or did you change it to a CODE39? If you want the CODE39 then you need to change the line
Code:
oRng.Fields.Add oPara, 99, Chr(34) & sNum & Chr(34) & Chr(32) & "QR" & " \t", False
to
Code:
oRng.Fields.Add oPara, 99, Chr(34) & Chr(42) & sNum & Chr(42) & Chr(34) & Chr(32) & "CODE39" & " \t", False
As for the rest, I don't understand what you mean. You can edit the calendar body in any way you wish using VBA. It is essentially a Word document.
The body you suggested looks like:
VIN: (Vehicle Identification Number)
OD: (Mileage)
Plate: (Licence)
Sticker Number: (Certificate Number)
Insert Number: (Certificate Number)
What do you want the finished body to look like?