...можно переходить на другие листы, открывать другие книги - программулька будет тихо себе пахать... буфер и не нужен вовсе...

Public Sub Obnowlenie()
With Workbooks("Имя_файла_без_расширения").Worksheets("Название_листа")
If .Cells(22, 5) <> 1 Then Exit Sub
.Rows(2).Copy
.Rows(25).Insert Shift:=xlDown
End With
Application.OnTime Now + TimeValue("00:00:05"), "Obnowlenie"
End Sub