Bestimmte Zeilen per Knopfdruck kopieren

Sub Selektieren_Kopieren()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Application.ScreenUpdating = False
Set wks1 = Sheets("Auswertung") 'Daten Tabelle
Set wks2 = Sheets("Auswertung_Alle") 'Ausgabe Tabelle
With wks1
'Daten in Spalte "A" ggf anpassen
.Columns("A").AutoFilter Field:=1, Criteria1:=""
' Beginn der Daten in Zelle "A2" ggf anpassen     Ausgabe in Spalte A
.Range(.Range("A2"), .Range("A2").End(xlDown)).EntireRow.Copy wks2.Cells(wks2.Cells( _
wks2.Rows.Count, 1).End(xlUp).Row + 1, 1)
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
Set wks1 = Nothing
Set wks2 = Nothing
End Sub