ausscheneiden sichtbarer Zeilen

ich würde gerne per makro alle sichtbaren zellen im bereich von 2 - 60000 ausschneidenur aber es klappt irgendwie nicht, ich kann nur kopieren

das ausschneiden per Range("...".Current region geht wegen dem autofilter nicht und mit ner schleife (wenn "Not hidden...") bekomm ichs nicht hin. weiß jemand abhilfe?

gruß
patrick