Consulta web desde Excel

Hola,
Quiero incluir en una hoja las tablas de una página web. Se trata de un
torneo y cada jornada recupero los resultados:

Sub Resultados()
'Declaro la variable DIA y la coloco en la casilla H1
Dim Dia As String
Dia = InputBox("Introduce el día del torneo ", "DIA DEL TORNEO")
Sheets("ConsultaWeb").Range("H1").Value = Dia

'Ahora necesito que la consulta recupere el día concreto en esa celda y la
agregue a la URL de la web, en la que sólo cambia el día de cada jornada

With Selection.QueryTable
.Connection = _
"URL;http://www.mywebsite.com/resultados...html" => donde
"X" debería ser mi variable DIA
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "24,25"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

¿Alguna sugerencia?
Gracias de antemano