Как из конкретной таблице извлечь строку ?

[Кирилл121]

Вот таблица

1.jpg

Как из этой таблице извлечь содержимое этой колонки ?

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

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 = "test@.ru"
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True
End Sub