Отображение даты изменеия и имени пользователя вносшего изменения - 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> Calendar1_Click()
s1 = Calendar1.Day
s2 = Calendar1.Month
s3 = Calendar1.Year
ActiveCell = DateSerial(s3, s2, s1)
cells(ActiveCell.row,ActiveCell.Column+<font color="darkblue"><b>1</b></font>)=<font color="blue">Date</font>() 
cells(ActiveCell.row,ActiveCell.Column+<font color="darkblue"><b>2</b></font>)=Environ$(<font color="teal">"USERNAME"</font>)
Calendar1.Today
<font color="blue">End</font> <font color="blue">Sub</font>
                        