Macro para exportar de excel a txt

Hola Experto!
Quisiera que me ayudaras con algo, estoy tratando de exportar toda una hoja de excel a un archivo txt, estoy usando este código:
ub generar_texto()
    Application.ScreenUpdating = False
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Workbooks.Add
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Descargas.txt", FileFormat:=xlText, CreateBackup:=False
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
    End Sub
Fue uno que encontré en la pag. (Creo que es tuyo), pero quisiera saber como hago para que me copie toda la hoja, como esta solo exporta algunas celdas.