Office: Mehrer Zellen in ein anderes Arbeitsblatt kopieren

Hallo, (ich benutze Office 10)
mein Ziel ist es eine Zeile von einem Arbeitsblatt in ein anderes zu kopieren ( mit einer Bedingung hier ist in Spalte F2 etwas eingetragen)
So habe ich es veranlasst.

Option Explicit
Sub Kopieren()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Set ws1 = Worksheets("alle")
Set ws2 = Worksheets("Herr X")
Set ws3 = Worksheets("Herr Y")

ws1.Range("F2").AutoFilter Field:=6, Criteria1:="Herr X"
ws1.Range("3:" & ws1.UsedRange.SpecialCells(xlCellTypeLastCell).Row).Copy ws2.Range("3:" & ws2.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
ws1.Range("F2").AutoFilter
ws1.Range("F2").AutoFilter Field:=6, Criteria1:="Herr Y"
ws1.Range("3:" & ws1.UsedRange.SpecialCells(xlCellTypeLastCell).Row).Copy ws3.Range("3:" & ws3.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
ws1.Range("F2").AutoFilter


Nun möchte ich aber nur die Spalten A bis E kopieren mehr nicht, wo und wie muss ich diese Bedingung einbauen?
Und wie gewährleiste ich, dass keine Zellen am Ende doppelt vorhanden sind?

Danke schonmal
Gruß

 

Verwendest du tatsächlich noch Excel XP/2002 (das ist nämlich die Version 10.0)?

Ansonsten kann ich nur sagen, dass du das Problem hier nicht deutlicher dargelegt hast als hier.

 

Ich verwende Office 2010 windows 7,

Ich möchte eine Zeile ( aber nur Spalte A-E), auf Grundlage eines Filters in
das betreffende Arbeitsblatt reinkopieren.
Es geht auch, es wird aber immer die ganze Zeile kopiert, wo muss ich die EInschränkung mir
A-E einbringen und wie?