Web Query of tables from a list of URLs

i have a list of URLs with 2 tables each which i need to extract into multiple worksheets

http://klse.i3investor.com/servlets/stk/fin/0001.jsp
http://klse.i3investor.com/servlets/stk/fin/0002.jsp
http://klse.i3investor.com/servlets/stk/fin/0003.jsp
.
.
.
.
.
http://klse.i3investor.com/servlets/stk/fin/9999.jsp

there's an example in the attachment of what i actually need.

thanks in advance

So what's the problem?

well im not really familiar with macro and this is what i recorded but i don't know how to get it to loop for the entire list

Sub Macro1()
'
' Macro1 Macro
'

'
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://klse.i3investor.com/servlets/stk/fin/0001.jsp", Destination:= _
Range("$A$1"))
.CommandType = 0
.Name = "0001"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "6,""stockhdr"",9,10"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Sheets("Sheet2").Select
Sheets("Sheet2").Name = "0001"
End Sub