Hi this is one of the best solution I found on MS help site.
This helps in sending email with certain cells from sheet as email body.

Sub Send_Range()
   
   ' Select the range of cells on the active worksheet.
   ActiveSheet.Range("A1:B5").Select
   
   ' Show the envelope on the ActiveWorkbook.
   ActiveWorkbook.EnvelopeVisible = True
   
   ' Set the optional introduction field thats adds
   ' some header text to the email body. It also sets
   ' the To and Subject lines. Finally the message
   ' is sent.
   With ActiveSheet.MailEnvelope
      .Introduction = "This is a sample worksheet."
      .Item.To = "E-Mail_Address_Here"
      .Item.Subject = "My subject"
      .Item.Display
   End With
End Sub
I am trying to modify this code to include:
1. Range from A2:H5000 ( Only rows having data in it)
2. When Receiver replies & edits cells, the colour of text added is RED in email body
3. If I go ahed with sending email, but after display I change my mind, I should be able to cancel it. Currently I dont know how to do it, as email envp there is no provision

Help requested
Kind regards