Complemetar informacion despues de flitra

Como puedo copiar celdas con vba después de filtra ya que siempre cambia la celda en la que encuentra el resultado del filtro

Sub CELDA()
Range("N6").Select
Selection.AutoFilter
ActiveSheet.Range("$A$6:$N$200").AutoFilter Field:=3, Criteria1:="=*" & [A1] & "*" _
, Operator:=xlAnd

Sheets("Hoja2").Select
Range("C5:K5").Select
Selection.Copy
Sheets("BASE 2017").Select
Range("H4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=3

End Sub