vba code / stock historical price macro ?

Sub QueryTableGrabber()
'*****************************************************************************
'*** Create a new QueryTable (in a new workbook to avoid naming issues)    ***
'***                                                                       ***
'*** Copy the information from the QT in the new workbook to the           ***
'*** worksheet before closing the new workbook.                            ***
'*****************************************************************************


    Const strMain As String = "URL;http://money.cnn.com/data/dow30"
    Const strQTName = "dow30"
    Dim wbkNew As Workbook
    
    Application.ScreenUpdating = False
    
    Set wbkNew = Workbooks.Add
    ThisWorkbook.Worksheets("Sheet1").Range("A1:F40").ClearContents
       
    Call NewQT(wbkNew.Worksheets(1), strMain, strQTName)
    wbkNew.Worksheets(1).Range(strQTName).Copy
    ThisWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
    
    With Application
        .DisplayAlerts = False
        wbkNew.Close savechanges:=False
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
    
End Sub


Sub NewQT(ws As Worksheet, strURL As String, strName As String)
'**********************************************************
'*** Create a new QueryTable in the specified worksheet ***
'*** using the URL and name given                       ***
'**********************************************************
    With ws.QueryTables.Add(Connection:=strURL, Destination:=ws.Range("A1"))
        .Name = strName
        .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 = "4"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    
End Sub