Buenos días,

Tengo el siguiente código:

Sub Copiar_NCAGT() 'MODULO11copia ndagt

Application.ScreenUpdating = False

Range("S2").Copy

Windows("Caja Jesus 2016.xlsm").Activate

      Sheets("BOLETOS").Select

Range("AA2").PasteSpecial xlPasteValues

    Application.CutCopyMode = False

    Range("AA2").Select

    Range("AA2").Copy

    Range("AA3:AA" & Range("I" & Rows.Count).End(xlUp).Row).Select

    ActiveSheet.Paste

    'ActiveSheet.PasteSpecial xlPasteAll

    Application.CutCopyMode = False

End Sub

Bueno este código lo tengo en mi libro NOTAS DE COBRANZA y lo que hace es copiar de mi hoja ND celda S2 el valor a mi otro libro Caja Jesus 2016 a la celda AA2 y el mismo valor lo copia a todo la columna filtrada, pero lo que necesito es que ya no copie a toda la columna filtrada, solo que copie el valor que esta en la celda AA2 a la ultima celda vacía de lo que esta filtrado.

Adjunto imagen de como quisiera el resultado.

Muchas gracias por su atención.

Jesús