Gamma di pasta Vba alla fine della tabella in excel

Ho scritto questa macro in excel. Ma quando uso finale (xldown) lo consiglio lavoro docent. Qualche suggerimento? Voglio filtrare un grande tavolo e copiarlo sul foglio 2. Ogni volta che voglio la tabella di paste alla fine della tabella (dopo l'ultima fila di tabella)

Questo è il mio codice vba:

Sub filter() Sheets("Sheet1").Range("A1:J46371").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("Sheet1").Range("M9:W10"), CopyToRange:=Sheets("sheet2").Range("A1:J1"), _ Unique:=False Sheets("Sheet1").Range("A1:J46371").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("Sheet1").Range("M11:W12"), CopyToRange:=Sheets("sheet2").Range("A1:J1", Range("A1:J1").End(xlDown)).Select, _ Unique:=False End Sub 

Il codice è corretto ma è necessaria una leggera modifica quando si selezionano le celle da copiare usando xlDown

 Sheets("Sheet2").Range(Range("A1:J1"), Range("A1:J1").End(xlDown)).Select 

Si prega di sostituire la linea di codice di cui sopra in CopyToRange e verificare.