Excel - Macro para copiar y pegar registros filtrados

Hola buenas tardes:

Tengo la sig. situación, asocie una Macro a un botón, el cual al dar clic copia y pega información de una tabla que tiene filtros (generado previo por una segmentación de datos), el código funciona pero me genera 2 problemas:

1. Al copiar hacia la nueva ubicación, lo hace con todo y los títulos de los campos, lo cual no debería porque el cuadro donde se copia la información ya cuenta con los títulos.

2. Al dar un nuevo clic en el botón debería copiar un nuevo registro de información en la fila inmediata vacía de abajo, pero no lo hace.

Código:

Sub Copiar()
'
' Copia la seleccion de los filtros
' Acceso directo: CTRL+f
'
Dim Mensaje As Integer
Dim Registros As Range

Mensaje = MsgBox("¿Pegar registro?", vbQuestion + vbYesNo, "Confirmar")

If Mensaje = vbNo Then Exit Sub

Range("N12:U12").Select
Selection.Copy
Range("N13").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("N12:U12").Select
Selection.ClearContents

Range("E43").Select
ActiveWindow.SmallScroll Down:=17
Range("B70:I70").Select
ActiveSheet.AutoFilter.Range.Copy
ActiveWindow.SmallScroll Down:=-17
Range("N11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

De antemano muchas gracias

Mejor subes el libro para ver lo que hace.

Saludos.
\\//_

De acuerdo, este es el archivo tal como lo tengo hasta ahora

Gracias

• Solicitud-de-filtros-V2.0-copia.zip(30,6 KB)

Puedes cambiar esto:
Selection.Copy
Por esto para copiar solo celdas visibles del rango seleccionado:
Selection.SpecialCells(xlCellTypeVisible).Copy

Aclarar que seleccionar y copiar rangos es sumamente ineficiente, lo mejor seria hacer todo el procesamiento de los datos en memoria.

En la mayoría de los casos es mas rápido recorrer datos en memoria, es decir, convertir un rango en una matriz de datos y recorrer esa matriz.

Este ejemplo puede ayudar.

Hola, copie el codigo y trate de usarlo pero no me quedo claro que hace, ya que me marca un error, aun asi agradezco la respuesta

El código no es especifico para tu caso particular, es un ejemplo de como se puede procesar la información desde la memoria en lugar de hacerlo directamente en las celdas, hacerlo en la memoria es abismalmente mas rápido.

Lo que hace es poner todos los datos en el rango A2:C hasta la ultima fila con datos, pone eso en la variable data y luego se procesa en memoria dentro del ciclo for, si ese mismo procesamiento se hace directo en las celdas como tu ejemplo, seria enormemente mas lento.