Macro que filtre datos y los copie a otra hoja de excel

Hola expertos, nuevamente molestándolos con una duda, esta vez hice una macro que filtra datos y me los manda a otra hoja de excel, el problema que tengo es que originalmente quería que los cortara, pero ahora necesito que los copie, y que los datos queden intactos en la hoja original, mi código es el siguiente:

Sub filtrar()
'Mueve los datos a la hoja Filtrar
UserForm3.Hide
Columns("A:M").AdvancedFilter Action:=xlFilterInPlace, criteriarange:=Range("O1:P2"), unique:=False
Cells.Find(What:=Range("O2"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, searchformat:=False).Activate
Selection.End(xlToLeft).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
Sheets("Datos_filtrados").Activate
Range("A2").Activate
Selection.Insert shift:=xlDown
Sheets("Documentos generados").Activate
ActiveSheet.ShowAllData
Selection.Delete shift:=xlUp
Range("A2").Select
End Sub

en la parte donde dice selection.cut la he cambiado por selection.copy, pero me manda un error en la parte de arriba, lo he intentado modificar de diferentes manera pero no logro hacer que copie los datos, les agradecería si me pudieran ayudar con la solución

Saludos!!