Trying to get my Excel workbook to upload multiple sheets into one Outlook email main body?

Hi, Im hoping someone can help. I am trying gto resolve an issue I have had for a few weeks now. I created an Excel workbook with VBA which took screen captures from multiple Excel sheets within the workbook. I am using Windows 8 and Office 2013. The script works absolutely fine. But on Windows 10, Office 2016 it doesnt. I managed to resolve the issue but now when i add the code to take captures from multiple sheets it does not work. Please can someone help.
The code is as follows.

Private Sub CommandButton1_Click()
    'Copy range of interest
    Dim r As Range
    Set r = Range("B2:O38")
    r.Copy

    'Paste as picture in sheet and cut immediately
    Dim p As Object
    Set p = ActiveSheet.Pictures.Paste
    p.Cut

    'Open a new mail item
    Dim outlookApp As Object
    Set outlookApp = CreateObject("Outlook.Application")
    Dim outMail As Object
    Set outMail = outlookApp.CreateItem(0) '

    'Get its Word editor
    outMail.Display
    Dim wordDoc As Object
    Set wordDoc = outMail.GetInspector.WordEditor

    'Paste picture
    wordDoc.Range.Paste
    wordDoc.InlineShapes.Item(1).ScaleHeight = 100
    wordDoc.InlineShapes.Item(1).ScaleWidth = 100
End Sub

Select allOpen in new window

Please can someone help me write into this code screen capture of multiple sheets from one excel document. The sheets are named as followed:-

Sheet 1 is called 1 Year Option and the cell range is "B2 - O38"
Sheet 2 is called 2 Year Option and the cell range is "B2 - O38"
Sheet 3 is called 3 Year Option and the cell range is "B2 - O38"
Sheet 4 is called Support Options and the cell range is "A1 - A31"
Sheet 5 is called System Requirements and the cell range is "B2 -I22"

If you need further information please let me know.

Thanks in advance,
Chris