Loop thru range params - external web connection

[DavidLi2]

Hello, please, can anybody help me?
I made macro for external web connection:

With ActiveSheet.QueryTables.Add(Connection:= _
"FINDER;D:\Dokumenty\novinky_web\test.iqy", Destination:=Range("$AN$218"))
.Name = "test_4"
.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 = "3"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

connection in test.iqy is:

WEB
1
http://dairybulls.com/search/sirepag...p?InterbullID=["Question"]&Bre=HO&genbase=A

Selection=3
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False

["Question"] is parametr represented by numbers in cells q4:q218 in my excel sheet

Is any solution how to combine this macro and connection properties in to loop which will run external web connections from down with param from cell q218 to up to q4 and write selection from connection in to cells range from AN218 till AN4
Thanks a lot for any help

[DavidLi2]

I did it
If anybody will need such code:

Dim i As Integer
For i = 225 To 5 Step -1
   

       With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://dairybulls.com/search/sirepage/sireUS2.asp?InterbullID=" & Range("AM" & i) & "&Bre=HO&genbase=A" _
        , Destination:=Range("AN" & i - 1))
        .Name = "i"
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "3"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
  Next i

End Sub