VBA Email for Excel - insert cell information into subject line

I am using the VBA code set out in the following site:

https://www.simplilearn.com/tutorials/excel-tutorial/send-email-in-excel

I have not included any of the CC/BCC or attachment options. The email contact is the same at all times the email is generated.

I have set the code to action the email on selection of a button.

The issue I have is that it does not cross reference what of row of data the selection was from.

What I would like is to take the name from column A and insert this into the subject line of the email?

I understand that this can be completed manually, but my preference is for full automation.

Any help would be appreciated.