a macro to copy the values from the data sheet to the next available row in
the destination sheet.

with sheets("destinationsheet")
x=.cells(rows.count,"a").end(xlup).row+1
.cells(x,1)=sheets("sourcesheet").cells(1,1)
.cells(x,2)=sheets("sourcesheet").cells(1,2)
end with
--
Don Guillett
SalesAid Software

wrote in message
ups.com...
Hi there

I am using web query to get the stock data.
I have set the Refresh Control to refresh the
page every 5 minutes and on sheet1, the data is
stored. On sheet2 I need the complete data for
the stock update ie before every refresh the sheet2
should get updated.

I am giving an example below:
----------------------------------------------------------
Sheet1 at 10.00 am

Col1 Col2
------------
12 12.5


Sheet1 at 10.05 am

Col1 Col2
------------
12.1 12.3


Sheet1 at 10.10 am

Col1 Col2
------------
12.2 12.6


Sheet2 (which should get updated before every refresh)

Col1 Col2
-----------
12 12.5
12.1 12.3
12.2 12.6

----------------------------------------------------------

Please help/guide me....

Thanks in advance

aachiney