VBA Email as PDF Help

I have a report template that I create 33 reports from on a weekly base and each report is emailed to a different team member I have the VBA script that emails the report to the list of email address but I need to add to it so it puts the area in sheet1 cell A1 and the Group in cell A2 then email to that person

I have attached a copy of the report excluding the data the vba is built into the button send mail

any help would be great