Web Query and Page Source - Importing Data

Hi,

Im trying to import a table from this URL: [url]http://www.bmfbovespa.com.br/cias-listadas/titulos-negociaveis/BuscaTitulosNegociaveis.aspx?Idioma=en-us[url]http://www.excelforum.com/excel-programming/

Stocks Traded Table...

However, it returns blank.. I looked at the page source (attached) and found the table inside! But, how am I going to manage pasting this table on excel using vba??

Rgds

Function WebQry(wbURL As String, wbTab As String, wbRng As String)
With ActiveSheet.QueryTables.Add(Connection:= _
(wbURL), Destination:=Range(wbRng)) 'wbURL / wbRng
            .WebTables = wbTab 'wbTab
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .SaveData = False
End With