Sveiki,
Turi būti tokia veiksmų eiga:

paspaudus Update mygi =>

Sheets("DATA").Select
ActiveWorkbook.RefreshAll
DoEvents
Sheets("DATA").Range("A41").Copy
Sheets("Rezultatas").Select
Range("A1").PasteSpecial Paste:=xlPasteValues


Taciau duomenis is DATA A41   paima senus :(   nesulaukia kol atsirefreshina 
duomenis is linko (http://.......)
Gal turit ideju?
Aciu

P.S. bandziau su  Application.Wait (Now + TimeValue("0:00:10"))  - naudos 
nera :(