Copiar rango en última fila de otra hoja

hola Dario

prueba la adpatecion que te pongo al final

solo asegurate de que la hoja activa al ejecutar la macro es la que
contiene el rango a copiar ( A2:C20) y..

si trascribes la macro el unico rango que no debe llevar un punto
delante es Range("A2:C20") (aunque lo mejor es que lc copies/pegues

en un cModulo 'normal' (no de hoja ni en thisworkbook)

Sub Guardar_Click()
Dim ultF As Long
With Worksheets("Relación")
ultF = .[a65536].End(xlUp).Row + 1
Range("A2:C20").Copy
.Cells(ultF, 1).PasteSpecial xlpastevalues
End With
End Sub


no lo he `probado, pero deberia funcionar (el objeto Range, si no
recuerdo mal no admite el metodo Paste a secas)

un saludo
Ivan

hola de nuevo, Dario

por un lado no me hagas caso en lo del modulo (no me habia fijado que
es un evento de un boton). ponlo donde este el boton

por otro si quieres prueba este otro (antes me he centrado en tu
codigo sin mirar/pensar mucho mas)

.-> si es seguro que la hoja activa es la que contiene el rango de
origen

Sub Guardar_Click()
Range("A2:C20").Copy
Worksheets("Relación").Range("a65536").End(xlUp) _
.Offset(1).PasteSpecial xlPasteValues
End Sub

.->si puede no serlo pero sabes su nombre

Sub Guardar_Click()
Worksheets("Nombre_Hoja_Origen").Range("A2:C20").Copy
Worksheets("Relación").Range("a65536").End(xlUp) _
.Offset(1).PasteSpecial xlPasteValues
End Sub


n saludo
Ivan

Muy interesantes vuestras aportaciones, amigos AnSanVal e Ivan.
Estoy aprendiendo mucho.

Un saludo, Gavillas.