title: How to add data vertically while xtracting tables from web page to excel
body: <p>My code             </p>
  
  <pre><code>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)))
       ...
  End sub
  </code></pre>
  
  <p>Now table updated in horizontal direction but I need data imported vertically.</p>