Kode til at gå én række ned i et filtreret område

Jeg ønsker at lave en kommandoknap til at aktivere et autofilter og herefter kopiere det filtrerede område over på et nyt ark. Jeg kan fint få den til automatisk at aktivere filteret, men har problemer med at få de rigtige data over på et nyt ark.

Da det er et dynamisk område og jeg kun ønsker de filtrerede celler har jeg brug for en kode der gør følgende: Markerer overskriften (celle A1), går én række ned og derefter markerer helt til bunden af området. Jeg har klaret det meste med makro-optageren, men kan ikke få den til at registrere at jeg går én række ned..

Når jeg bruger makro-optageren og placerer mig i celle A1, bruger piletasten til at gå én række ned og derefter markerer alle rækkerne herunder skriver den dette:

    Range("A6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

Dvs. den springer mit indledende ryk fra A1 til A6 over.. Hvilket er et problem da det ikke altid vil være A6 der er den øverste celle..

Håber der er nogle der ligger inde med en løsning!