Werte aus einer Excel Datei auslesen und in verschiedenen Excel Dateien speichern

Hallo Zusammen,

habe ein kleines Problem, und bin gerade etwas ratlos...
Habe eine .xls Datei, mit über 8000 Zeilen, welche Informationen in der Art wie Name, Adresse, Firma, Garage, etc. sowie eine Vertreternummer enthalten.
Der einzigste Wert, welcher mehrmals vorkommt, ist die Vertreternummer.

Ziel wäre es jetzt, die Vertreternummer auszulesen, und diese in einer neuen *.xls zu speichern, mitsamt den Informationen zu dieser Vertreternummer.
Dies erfolgt momentan halt über die Filterfunktion, quasi die Nummer anzeigen, Tabellenblatt kopieren, in neue Datei einfügen, und speichern.

Dieser Vorgang sollte sich doch rein theoretisch automatisieren lassen oder?

Für Anregungen oder einen einen Lösungsvorschlag schonmal besten Dank, wäre super, wenn jemand helfen könnte.

Grüessli aus der Schweiz, Eve

Sub Makro()
'  
' Makro Makro  
'  

'  
    Selection.AutoFilter
    Selection.AutoFilter Field:=19, Criteria1:="0001"  
    Cells.Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "C:\Dokumente und Einstellungen\...\...\test"  
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Dokumente und Einstellungen\...\...\test\VerNr0001.xls", _  
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _  
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub