помогите разобраться циклический макрос работает но при этом ячейка не обновляет внешние данные

Помогите разобраться:
ячейка "А1" на листе 2 (это все для отброса лишней информации) получает данные с листа 1 из ячейки "А7", та в свою очередь получает данные (текущее время) из http://time100.ru/online.html с периодом 1 мин.
для сбора и записи меняющихся данных из "А1" я записал макрос "m1". При его запуске - данные из "А1" копируются и записываются как значения и формат в "В1" после этого добавляется новая колонка. Все работает отлично и достигаются поставленные задачи, т.е. идет запись данных из "А1".
Вот код макроса:
Sub m1()
Range("A1").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B1").Select
End Sub

Но это все надо проделывать Автоматически, т.е. как бы запускать макрос "m1".
нашел в интернете макрос для запуска цикла, но после его включения перестают меняться данные в "А1" (пропадает получение внешних данных).
вот макрос:
Private Sub Workbook_Open()
Dim Dif As Integer
TimeStart = Time
While Time < #6:00:00 PM# ' пока раборчее время
Dif = DatePart("s", Time - TimeStart) 'DatePart выделение разницы в секундах или в минутах или в часах
'тут уж можно поизвращаться какой именно тебе нужен промежуток времени
DoEvents
Select Case Dif
Case 10 '10, 20, 30, 40 имеено то значение разницы, которое ты наизвращал выше :)))
TimeStart = Time ' перенесем точку отсчета в текущий период
Call m1
End Select
DoEvents
Wend
End Sub


Помогите разобраться во втором макросе:
1- Почему перестают обновляться внешние данные?
2- Нужно как-то поправить время, чтобы он работал круглосуточно.