Как из таблицы извлечь конкретную строку (его содержимое) и отправить содержимое по почте в Word через кнопку?

Как передать в Body содержимое вот этой строки ?

Вод код кнопки

Private Sub CommandButton1_Click()
Dim xOutlookObj As Object
    Dim xEmail As Object
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmail = xOutlookObj.CreateItem(olMailItem)
    Set xDoc = ActiveDocument
    xDoc.Save
    With xEmail
        .Subject = "Тема ..."
        
        ' В Body передать текст из конкретной таблицы строку ?
      
        .Body = worker1
        .To = "[email protected]"
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True
End Sub