Grab Data Using Excel

Dim a(3)
a(0) = "http://www.jewellery-hk.org/big5/cfullmember.php?eng_coname=A-1%20Jewelry%20Manufactory%20Limited"
a(1) = "http://www.jewellery-hk.org/big5/cfullmember.php?eng_coname=Aaron%20Shum%20Jewelry%20Limited"
a(2) = "http://www.jewellery-hk.org/big5/cfullmember.php?eng_coname=Abba%20Jewellery%20%28Mfg%29%20Limited"

Dim i As Integer
Dim x As Integer
x = 1
For i = 0 To 3

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & a(i) & "" _
, Destination:=Range("A" & x))
.Name = "Jewellery" & i
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "8"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=Ture
End With

x = x + 12
Next