Duda para generar un txt con un macro

[Pablus00]

Encontre este macro y lo adapte a lo que mas o menos busco, lo dejo por si alguien lo necesita, lo unico que le faltaria adaptar es que guarde la informacion de un rango en el txt, en vez de solo una columna

Sub Txt2()
Dim Archivo As String, dato As String
Archivo = "C:\" & Range("A1").Value & ".txt"
Open Archivo For Append As #1
Do While ActiveCell <> Empty
dato = ActiveCell.Value
Print #1, dato
ActiveCell.Offset(1, 0).Activate
Loop
Close #1
End Sub