How to adapt a code to include a range of cells instead of the whole sheet

First of all thank you to the person who provided the code that I have been trying to adapt, I got it from another post on this forum.
The code I have in module 5 works to a great degree but it sends too much in the attachment.
I want to be able to click a button and send the letter only, cells J1 to R51 (not the whole sheet) it converts it to a PDF and then attaches to an email in outlook brilliantly.

I have attached a workbook for reference. The workbook will eventually have 11 sheets, so I thought I could put a button on each sheet for each letter.
Cells U6 and U7 are where the email address and subject title go
I forgot to mention that the letter sheet will be protected
Many thanks

Hello patel45, thanks for taking the time to look.
I have inserted your code where it said MyFilePath = ThisWorkbook.Path , I'm not sure if that is where it is supposed to go or not.
Unfortunately, it still emails the wrong of the sheet and doesn't include J1 to R51 at all.
Could you tell me exactly where to insert your new bit of code please
Thanks

Patel45
I've re attached my example so you can see where I've inserted your extra bit of code in module 5

patel45,
Thank you very much for your help, I now realise what you wanted me to do and it works.
Thanks again