Autofilter

ich lasse mir mit folgendem Programm einen Datenbereich in eine Textdatei umwandeln. Klappt auch ;-))
Mit dem Autofilter reduziere ich die Tabelle durch verschiedene gesetzte Filter auf eine, zwei Zeilen.
Wie erreiche ich es jetzt, dass nur diese Zeilen in die Textdatei umgewandelt weren und nicht der ganze Datenbereich??

Set Daten = Range(Cells(2, 1), Cells(100, 7))
Open "C:\Test" & i & ".txt" For Output As #1

Print #1, "0128;"
n = 2

For Each Zeile In Daten.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & CStr(Zelle.Text) & ","
Next

strTemp = Left(strTemp, Len(strTemp) - 1)
txt = Cells(n, 8).Value

Print #1, strTemp & ";// " & txt
strTemp = ""
n = n + 1
Next

Close #1

Danke Norbert