Здравствуйте уважаемые знатоки 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

Буду признателен, если кто поможет.