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