To add saving data as text file feature, add these lines to existing code :

    Application.Calculation = xlCalculationAutomatic

    qurl = ThisWorkbook.Path & "\" & ticker & ".txt"
    On Error Resume Next
       Kill qurl
    On Error GoTo 0
    DataSheet.Copy
    ActiveSheet.SaveAs Filename:=qurl, FileFormat:=xlTextMSDOS
    Application.DisplayAlerts = False
       ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub