Copiay pegar selección con macro
Te quiero consultar por una macro. Selecciona una serie de datos de acuerdo a una condición y los pega en otra hoja, pero necesito que los peque como valor y al agregar este último requerimiento me genera un error 1004, esta es la macro:
Sub Copiar_Filas()
'inicializo la variable j
j = 2
'comienzo el bucle
For i = 2 To 500
'activo la hoja donde están mis datos
Sheets("Mes").Activate
'compruebo que el valor de la fecha es mayor que 30
If Cells(i, "N").Value = 1 Then
'copio la fila entera
Range(Cells(i, "A"), Cells(i, "M")).Select
Selection. Copy
'selecciono la hoja donde quiero pegar y después la celda
Sheets("Acum"). Activate
Cells(j, "A").Select
'pego la fila que hemos copiado
ActiveSheet. PasteSpecial xlPasteValues
Application.CutCopyMode = xlCopy
'aumento la variable j para que vaya a la siguiente fila de la hoja filtros
'cuando encuentre una nueva fila que cumple con la condición de edad
j = j + 1
End If
Next
End Sub