Copy Cell Contents into outlook email

I've got an issue that I hope you can help me with because I am so confused as to why I cant get it to work!!

My sheet has objects and text in cells A1:I50 in Sheet1

what I want my macro to do is copy cells A1:I50 with all the objects and text and paste it into the body of an email.

When I do this manually I simple highlight the cells, copy them and paste them into the email body and everything copies over perfectly.

I wrote the below code which should do the exact same as what im doing but for some reason it doesn't work

Please Login or Register  to view this content.

I must be doing something wrong but for the life of me I have no idea what it is!!

BTW the above code is one I ripped off a different project I did where I created a word document that attached to an email, I just copied my email section from it in the hope it would work.

Can anyone help me?

Much appreciated if you can