請幫我看看下列程式碼

Option Explicit
Sub Ex()
Dim i As Integer, E As Object, C As Integer, Sh As Worksheet
With CreateObject("InternetExplorer.Application")
      .Visible = True
      .Navigate "http://www.goodinfo.tw/stockinfo/ShowK_Chart.asp?STOCK_ID=2454&CHT_CAT2=WEEK"
      Do While .Busy Or .ReadyState <> 4: DoEvents:    Loop
      With .document
         Do
            If .all.tags("table").Length >= 16 Then Exit Do
            DoEvents
         Loop
         Set Sh = ActiveSheet
         Sh.UsedRange.Clear
         For Each E In .all.tags("table")(16).Rows
            i = i + 1 '
            For C = 0 To E.Cells.Length - 1
                  Sh.Cells(i, C + 1) = E.Cells(C).innertext
            Next
         Next
         With Sh
               For i = 21 To .Range("A" & Rows.Count).End(xlUp).Row Step 18
                  .Cells(i, "A").Resize(2).EntireRow.Delete
            Next
         End With
      End With
      .Quit       '關閉網頁
End With
End Sub

我想抓這資料http://www.goodinfo.tw/stockinfo/ShowK_Chart.asp?STOCK_ID=2330&CHT_CAT2=WEEK
下面的
交易
週別交易
日數開盤最高最低收盤漲跌漲跌(%) 成交張數成交金額法人買賣超(千張) 外資持股 (%) 融資(千張) 融券(千張) 券資比
(%)
千張日均億元日均外資投信自營合計增減餘額增減餘額

表格請問哪邊改錯了
請幫我指證一下
謝謝

2016-6-6 下午 03-29-38.png (70.45 KB)