Como agregar el cuerpo del mail en la macro desde excel

Tengo la siguiente macro que envía la hoja como adjunto y coloco el asunto al mail, lo que deseo agregar es que en el cuerpo aparezca la información de una celda de la hoja que envió. Leí que con el método "ActiveWorkbook.SendMail" no se puede incluir el cuerpo del mail, en ese caso que método debería usar no necesito que el libro se guarde en la pc desde la que se envía el mail.

Sub mailfinal()
MsgBox ("NO ENVIO PLANILLA DE OPERADORES")
MsgBox ("NO OLVIDE ABRIR LA CUENTA DE MAIL PARA ENVIAR LA PLANILLA")
Application.ScreenUpdating = False
Application.DisplayAlerts = False

ActiveCell.Select
Sheets("b").Select
Range("E2").Select
Selection.copy
Range("W1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Dim Names()
Names = Array("[email protected]", "[email protected]")

ActiveWorkbook.SendMail _
Recipients:=Names(), _
Subject:="Parte de " & " " & Range("J6").Value & " " & Range("c6").Value & " " & Range("E5").Value & " kg "

Sheets("Bielo").Select
'ActiveWindow.SelectedSheets.Visible = False
Application.EnableEvents = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub