如何在将网页表格提取到 Excel 时垂直添加数据

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

现在表格在水平方向更新，
但我需要垂直方向。