Как при нажатии в Exel кнопки 'ОБНОВИТЬ ДАННЫЕ' вставить згачения времени ЮЗЕРОВ в поля книги Exel?

Private Sub LoadToExcel()
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim i, j As Integer
Dim StrFile(0 To 61) As String
'до скольки строк  надо сам сделаешь
'или используй гибкий массив
 
'считываем в массив все свои записи - умеешь
'по другому  сделай  сам, просто думать неохота
 
Open 'c:Источник.txt' For Input As #1
  Do While Not EOF(1)
    Line Input #1, StrFile(i)
    i = i + 1
  Loop
Close #1
 
'Запускаем Excel
Set objExcel = GetObject('', 'excel.application')
 
'Создаём Workbook из готового бланка
Set objWorkbook = objExcel.Workbooks.Open('c:MyFile.xls')
 
'Выключаем сообщения, шоб не мешали ежли что
objExcel.DisplayAlerts = False
 
'Активизируем страницу
Set objWorksheet = ActiveSheet
 
'загрузка инфо в  ячейки
'ячейка А1 будет(1,1) А2 (2,1) и т.д.
For j = 0 To i
  objWorksheet.Cells(j + 1, 1) = StrFile(j)
Next
 
'сохраняем и закрываем
objWorkbook.Close True, 'c:MyFile.xls'
 
'Включаем сообщения
'Если закрывать Excel, то необязательно
'objExcel.DisplayAlerts = True
 
'Set objWorksheet = Nothing
'Set objWorkbook = Nothing
'Set objExcel = Nothing
 
objExcel.Quit
 
MsgBox 'Загрузка данных в Excel завершена'
End Sub