copier résultat d'un fitre auto

Bonsoir à tous,
J'ai créer une macro via l'enregistreur de macros qui me donnent en partie : Sheets(" Présents Base arrière").Select
Selection.AutoFilter Field:=1, Criteria1:="CCH"
Selection.AutoFilter Field:=3, Criteria1:="="
Range("A42:B63").Select
Selection.Copy
Sheets("B.C.R.Mardi").Select
Range("K30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
En fait, je voulais savoir comment modifier cette macro pour copier le résultat du filtre car les lignes copiées ont été sélectionnées manuellement et si j'ajoute une ligne avant la ligne 42, j'ai un décalage dans le résultat.
Merci pour vos réponses.