Pegar celdas copiadas 2

Raul:
Te conteste mas abajo pero por si no lo leiste
ahi te ba

Coloca estas lineas despues del codigo que copia la celda para despues
pegarla



range("c3").select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste




Ronald E. Sánchez
El Salvador-San Salvador
"Raul" escribió en el mensaje
news:00fb01c3b50e$a9ac0b20$
Gracias Roland, gracias Matias, pero resulta que esos
pasos grabados en un script de una macro, me carga un Nº
de rango ej:
Range("C3").Activate
Range(Selection, Selection.End(xlDown)).Select
Range("B3:B145").Select
ActiveSheet.Paste

que el dia que tenga mas registros, unicamente me va a
tomar los que esten en el rango mencionado :"B145" y yo
necesito que sea hasta el ultimo existente en ese dia.
Yo logre hacerlo con este codigo:

Range("F2:G2").Select
Application.CutCopyMode = False
Selection.Copy
Columns("F:G").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveSheet.Paste

Pero en este caso antes de pegar necesito que suba una
celda y eso no se como hacerlo por script, ni tampoco me
acuerdo como lo hice en ese entonces ese codigo.