Написал макрос в Excele, который через каждые 5 секунд копирует строку и добавляет скопированную чуть ниже.
Нельзя ли сделать проще?
А то все зависает аж, когда врубаю. Но работает

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

'
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Обновление через каждые 5 секунд. Для остановки нажмите ESC", 4)) = vbYes Then
PauseTime = 5 ' Set duration.
Start = Timer ' Set start time.

Do While Timer < Start + PauseTime
Do While Timer < Start + PauseTime

Loop
Start = Start + 5
Rows("2:2").Select
Selection.Copy
Rows("25:25").Select
Selection.Insert Shift:=xlDown
Loop
Finish = Timer ' Set end time.
TotalTime = Finish - Start ' Calculate total time.
MsgBox "Paused for " & TotalTime & " seconds"
Else
End If

End Sub
===============================
Спасибо!