Parameters in Macros

With ActiveSheet.QueryTables.Add(Connection:= _
    "FINDER;C:\Users\Macbook\Documents\Lakeland Flying Tigers\Spring Training\Stub Hub Web Queries\Stubhub35.iqy" _
    , Destination:=Range("$A$1"))
    .Name = "Stubhub35"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False    
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
End With
Sheets.Add After:=ActiveSheet


End Sub

I made this macro to automatically do a web query when it is ran. When the macro is ran it asks for the order number which is listed on a separate sheet. Is there way to code it so it automatically goes down the list and repeats it until it finishes the list?