Copiar valor de celda a la ultima celda vacía de un rango
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 SubBueno 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.
