Macro para exportar datos de excel a texto

saludos!, tengo esta macro que encontré para filtrar de excel a archivos de texto:
Dim fulla, llibre, savefile As String
fulla = InputBox("Nombre de la hoja del libro a copiar", "Hoja:", "Hoja2")
'I2 lo cambiaríamos por la celda donde hemos incluido el criterio de filtro
llibre = Sheets("empleado").Range("b4").Value
'filtro_avanz2 es el nombre de la Hoja donde se encuentra nuestra base de datos
Dim Titulo, Directorio As String
Titulo = "Selecciona una carpeta donde guardar el fichero texto"
On Error Resume Next
'evitaría un error en caso de no seleccionar nada o pulsar ESC
With CreateObject("shell.application")
Directorio = .browseforfolder(0, Titulo, 0).Items.Item.Path
End With: On Error GoTo 0
If Directorio = "" Then
MsgBox "No se ha seleccionado ningún directorio.", , "Operación cancelada!"
Else
savefile = Directorio & "\" & llibre & ".txt"
ActiveWorkbook.SaveAs Filename:= _
savefile, FileFormat:=xlText _
, CreateBackup:=False
'la instrucción Fileformat:=xlText es la que permite
'guardar el fichero como Texto delimitado por tabulaciones
End If
tengo una tabla con datos (A9:T342) tiene 20 campos y con la ayuda de un experto logre crear filtros con los dos campos de fecha y vehículo. Ahora, con la macro mencionada anteriormente logro exportar los datos y guardarlos, el problema es que me guarda todo lo que aparece en la hoja este filtrado o no. Y solo quiero que mer guarde la tabla resultante del filtro.
por otro lado, me ocurre algo que pasa con las macros que he encontrado para esto, y es que me hace cambiarle el nombre a la hoja de donde están los datos (nombre con el que guarda en txt) y quisiera que fuera una rutina como cuando se guarda cualquier archivo.
gracias de ante mano!