Отображение даты изменеия и имени пользователя вносшего изменения - VB

Формулировка задачи:

Здравствуйте уважаемые знатоки VBA!
Помогите доработать макрос до нужного функционала.
Макрос вводит дату из календаря в одну ячейку, но хочется, чтобы автоматически в соседней ячейке фиксировалась дата ввода, а в другой ячейке - имя пользователя вводившего эту дату из календаря. Вот макрос:
Private Sub Calendar1_Click()
s1 = Calendar1.Day
s2 = Calendar1.Month
s3 = Calendar1.Year
ActiveCell = DateSerial(s3, s2, s1)
Calendar1.Today
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
result = False
s = ActiveCell.Address(RowAbsolute:=False, columnabsolute:=False, ReferenceStyle:=xlA1)
result = (s Like "H*") Or (s Like "I*")
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Calendar1.Top = ActiveCell.Top + ActiveCell.Width
If result = True Then Calendar1.Visible = True Else Calendar1.Visible = False
End Sub
Буду признателен, если кто поможет.

Решение задачи: «Отображение даты изменеия и имени пользователя вносшего изменения»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> Worksheet_Change(<font color="blue">ByVal</font> Target <font color="blue">As</font> Range)
    <font color="blue">If</font> (Target.Row = intRowOfDateCell) <font color="blue">And</font> (Target.Column = intColOfDateCell) <font color="blue">Then</font>
        Cells(intRowOfChangeDateCell, intColOfChangeDateCell) = <font color="blue">Date</font>
        Cells(intRowOfUserNameCell, intColOfUserNameCell) = strUserName
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Sub</font>

                        