Pegar datos ultima celda

Sub copiar()
'Por.DAM
'seleccionar el rango de la hoja1
Sheets("Hoja1").Range("A1:C10").Copy
'encontrar la última fila de la hoja2
'Tienes que conocer cuál es la columna que tiene más filas
'Suponiendo que la columna A es la que siempre tiene más filas
'utilizas la siguiente instrucción para obtener la última fila
ufila = Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row + 1
'Una vez que ya tienes la última fila
'Pegas la información
Sheets("Hoja2").Select
Range("A" & ufila).Select
ActiveSheet.Paste
End Sub

Sub cop2()
'también puedes hacer lo mismo en una sola línea
Sheets("Hoja1").Range("A1:C10").Copy _
    Sheets("Hoja2").Range("A" & Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row + 1)
End Sub

Saludos.DAM
No olvides finalizar la pregunta.