Как объединить две подпрограммы с Private Sub Worksheet_Change на листе, которые имеют разные триггеры

Question

У меня есть 2 частных подпрограммы sub worksheet_change, которые должны быть на одном листе, и я не могу понять, как их объединить.Совершенно новый для всей этой игры VBA и оба сабы я нашел на различных сайтах.Любая помощь будет принята с благодарностью.2 части кода ниже.Один получает время, когда ячейка изменяется, а другой выводит окно сообщения, когда другая ячейка изменяется (Обновлены с первого поста. Оба являются subsheet_change subscription

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rCell As Range
Dim rChange As Range

On Error GoTo ErrHandler
Set rChange = Intersect(Target, Range("A:A"))
If Not rChange Is Nothing Then
    Application.EnableEvents = False
    For Each rCell In rChange
        If rCell > "" Then
            With rCell.Offset(0, 1)
                .Value = Now
                .NumberFormat = "hh:mm:ss"
            End With
        Else
            rCell.Offset(0, 1).Clear
        End If
    Next
End If

ExitHandler:
    Set rCell = Nothing
Set rChange = Nothing
Application.EnableEvents = True
Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler

End Sub

А второй -

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Range("AH4"), Target) Is Nothing) Then
    MsgBox "Broadcast Now!"
End If

End Sub