Как добавить данные по вертикали при извлечении таблиц с веб-страницы, чтобы преуспеть

Question

Мой код

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)))

Теперь таблица обновлена в горизонтальном направлении
но мне нужно вертикально.