Copiar valor de celda a la ultima celda vacía de un rango

[jesus miguel]

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

Jesús