Sub CommandButton1_Щелкнуть()
'
Что-то не получается вызвать процедуру с таймером из модуля с обновлением.

Пока что придумал еще 1 вариант.

' CommandButton1_Щелкнуть Макрос
' Макрос записан 07.01.2008 (R12)
'

'
Dim XXX As Integer
XXX = 1
Do While XXX = 1
If Application.Wait(Now + TimeValue("0:00:05")) Then
Rows("2:2").Select
Selection.Copy
Rows("25:25").Select
Selection.Insert Shift:=xlDown
End If
Loop
End Sub