Create outlook 2016 message using excel 2016 data

Please help me with the following

I have an xlsx file with 2 sheets (Sheet1 - list with contacts, list 2 - the text).

I need a macro which would create a new outlook message with the following parameters:
to: the email address from the active cell
body: the text from sheet 2 which also contains a table (it's important the table to be in the message body below the text from Sheet2.A3).

I found the code mentioned below but it does not work when I'm adding Worksheets("sheet2").Range("a6:e10") (Run-time error '13'/ Type mismatch)

Please Login or Register  to view this content.

Please Login or Register  to view this content.

The file is attached