Web Query Change apoun cell value change

[nikimitsy]

i have a web query which i run every 30min. here it is below

https://docs.google.com/spreadsheets/d/1IJI83Lu-KDzIJigb6DDHrRiuo0jngpsBG9yyMHefSJ4/gviz/tq?tqx=out:html&gid=343315703&tq=select%20A%2CB%2CC%2CD%2CE%20WHERE%20C%3D%22Week%2036%22

what i would like to be able to do is have the last "Week%2036%22" be the value of a cell. and how i would come up with that value is CONCATENATE cells with text value and weeknum. so i deally i would like to run my web query as per the week number. is this possible this is the code i am using to run my query

Sub RefreshWebQuery_Data()     '
     ' Macro3 Macro
     ' Macro recorded 2/4/2014 by BPettis
     '
    On Error Resume Next
     '
     '    Application.DisplayAlerts = False
    Debug.Print Now() & Chr(9) & "RefreshWebQuery_Data"
    Worksheets("DATA").Range("A1").QueryTable.Refresh BackgroundQuery:=False
    Application.OnTime Now() + TimeValue("00:30:00"), "RefreshWebQuery_Data"
    Application.DisplayAlerts = True
    Exit Sub
     
End Sub

my web query is named Data

 

[nikimitsy]

Please any help in the right direstion would be aprreciated

thanks in advance