macro ayuda

cree este macro para guardar un excel como txt delimitado por tabulacion el tema es que tengo que filtrar la columna 27
por cada uno de los datos que contiene ese resultado es el que selecciono y luego guardo como txt independientes.
pero el macro solo genera uno
como lo programo para que siga consecutivamente asta que se acabe la información de la columna 27
el contenido de esta es numero de bolsa y va del 1 al 10000


Sub viña()
'
' viña Macro
'

'
ActiveSheet.Range("$A$1:$AG$288759").AutoFilter Field:=27, Criteria1:="1"
Range("A1:AG288759").Select
Range("AA6701").Activate
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ChDir "C:\Users\opdigital\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\opdigital\Desktop\bolsa 1.txt", _
FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close
End Sub