Como adicionar dados verticalmente enquanto xtracting tabelas da página da web para o excel

Question

Meu código

Public Sub Raju()         
Dim alertTime As Date
alertTime = Now + TimeValue("0:05:00")        
'
' mymacro Macro        
'
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")  
Dim usedRows As Long
usedRows = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row     
With ws.QueryTables.Add(Connection:= _"URL", Destination _:=ws.Range(Cells(1, 1), Cells(usedRows, 1)))

Agora tabela atualizada na direção horizontal
mas eu preciso verticalmente.