eine sub für beide aufrufe
Sheets(copiertab).Range("A1").autofilter Sheets(copiertab).Range("A1").autofilter 1
das & steht für Long,