this will do it from your workbook
Sub transposequerydata() 'Don Guillett SalesAid Software
With Sheets("WebQuery")
sfr = .Cells.Find("DJ Industrial Average").Row
sfc = .Cells.Find("DJ Industrial Average").Column + 1
slr = .Cells(Rows.Count, "b").End(xlUp).Row
dlr = Sheets("Database Transpose") _
.Cells(Rows.Count, "b").End(xlUp).Row + 1
.Range(Cells(sfr, sfc), Cells(slr, sfc)).Copy
Sheets("Database Transpose").Cells(dlr, "b") _
.PasteSpecial Paste:=xlPasteAll, Transpose:=True
End With
Application.CutCopyMode = False
End Sub

--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
Probably just easier to send me the workbook.

--
Don Guillett
SalesAid Software

"SteveC" wrote in message
...
Thanks... could you point me to the post that has this macro script to
perpetually copy/paste to an adjacent column on another worksheet? I've
been
searching for an hour now and no luck.

So from worksheet 1 col a, paste to worksheet 2 col b, then worksheet 1
col
a to worksheet 2 col c, then worksheet 1 col a to worksheet 2 col d,
etc...

where the columns to be pasted to are not defined by column headings, but
the next available empty column.

I suck at macros, by the way... thanks for your help!



Wasn't this asked and answered already?
Create a macro to copy/paste the data to another sheet run the refresh.

--
Don Guillett
SalesAid Software

"SteveC" wrote in message
...
Hi,

Assuming I have a web query that returns a column of data, is there
away
that every time I refresh the web query that it downloads refreshed
data
into
the adjacent column automatically?