Borrar a partir de lo pegado

[romu055]

hola amigos, tengo la siguiente macro( es la primera que hago estoy en fase de pruebas) en la cual quiero que de un archivo se seleccione una columna y la pegue en otro archivo, hasta ese punto todo mas o menos fácil, pero hay veces que la columna tiene menos filas que la anterior y no se que debería de indicar para que cada vez que ejecute la macro, si tiene menos filas, borre las anteriores y siempre se quede la columna con las que se han copiado en ese momento.

no se si me he explicado, adjunto la macro creada

 

Sub pruebascorreos()
'
' pruebascorreos Macro
' PRUEBA COLUMNA ALBARAN
'
' Acceso directo: Ctrl+Mayús+P
'
    Windows("Libro1").Activate
    Range("C2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("envios de correos a listas para reclamar etc.xlsm").Activate
    Range("B2").Select
    ActiveSheet.Paste
End Sub
 

[Antoni]

No es difícil, pero para asegurar el tiro, mejor sube ambos archivos.

[Janlui]

Si ya conoces el rango maximo de filas, copia siempre todo y pega todo ejemplo:

 Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Pon

Range("c2:c1000").copy

Aqui pongo un rango de 1,000 filas, si no las hay se lleva los blancos y sustituye al anterior.

Saludos