Using web query with parameters within a macro

Yes, I want to put the parameters in place of "ID". Ideally, I'd also like it to update if that number is changed. So if the parameter is located in cell B1, how would I write that?

Thank you!

Alternatively, I came up with this, which seems to work but doesn't update when O2 is changed. Is there a way to tell it to do that?

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & Sheets("Worksheet").Range("O2").Value, Destination:=Range("$A$3"))
.Name = "profile.cfm?authid=[""ID""]_1"
.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
End Sub

That did it! Thank you so much!