Добавление значений ячеек в электронное письмо при их изменении Excel

В настоящее время я работаю над небольшой «базой данных» Excel, где ячейки в одном из столбцов могут редактировать несколько человек. Ячейки, которые можно редактировать, находятся в раскрывающемся меню. Как только человек изменяет одну или несколько ячеек, я хотел бы, чтобы некоторые данные из соответствующих строк были добавлены в электронное письмо. Наконец, фиксированная ячейка заполняется инициалами человека, редактирующего базу данных, в результате чего отправляется электронное письмо.

Бывший. Мои столбцы A, B и C: Имя, Профессия, Положение дел и, скажем, у меня 10 строк. Затем ячейка Положение дел в строках 2 и 7 изменяется с помощью раскрывающегося списка с «Работает» на «В отпуске». Я добавляю свои инициалы в фиксированную ячейку (например, D1), и создается электронное письмо со следующим текстом:

Марк, в отпуске

Стэн, в отпуске

Столбец B, Профессия, не важен, и его следует исключить из электронного письма.

заранее спасибо

Текущий (неполный) код

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xChangeArea As Range
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xMailBody As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xChange = Range("$D$1")
    Set xChangeArea = Intersect(Target, xChange)
    ActiveWorkbook.Save
    If Not xChangeArea Is Nothing Then
        Set xOutApp = CreateObject("Outlook.Application")
        Set xMailItem = xOutApp.CreateItem(0)
        xMailBody = "Changes made in document: " & "(A Column Cell) is set to" & "(C column cell)"

        With xMailItem
            .To = "Email Address"
            .Subject = "Worksheet modified in " & ThisWorkbook.FullName
            .Body = xMailBody
            '.Attachments.Add (ThisWorkbook.FullName)
            .Display
        End With
        Set xChangeArea = Nothing
        Set xOutApp = Nothing
        Set xMailItem = Nothing
    End If
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub