Macro para enviar un email en base al valor de una celda, donde se copie solo la fila donde se capturo el dato (tabla o imagen).

Los expertos.

He hecho una macro para que al capturar un cierto valor en una celda de excel me aparezca un email en outlook, sin embargo, no he podido descifrar, como puedo copiar la fila completa donde se capturó el dato y colocarla en el cuerpo del correo (ya sea en imagen o tabla), y no se si sea posible anexar los correos de los destinatarios, dependiendo del texto de una celda.

Les dejo la macro que se hizo y una imagen del archivo

De antemano agradezco su valiosa ayuda...

MACRO:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count <= 400 Then Exit Sub
Set xRg = Intersect(Range("I:I"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value <= 400 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Estimado acodicionador" & vbNewLine & vbNewLine & _
"La Muestra esta FDN " & vbNewLine & _
"REPETIR la prueba de calidad"
On Error Resume Next
With xOutMail
.To = " DESTINATARIO" 'agregar destinatios en base a la celda de sitio
.CC = ""
.BCC = ""
.Subject = "Muestra FDN*STD"
.Body = xMailBody
.sent
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

Imagen del archivo