Cita: hola equality,
si quieres sustituye tus líneas de código por estas en tu botón
------------------------------------------------
'selecciono el rango
Range("A1:E1").Select
'copio el rango
Selection.Copy
'voy a hoja2
Sheets("Hoja2").Select
'busco la fila vacía
Dim i As Integer
i = 1
Dim rango As String
Dim salir As Boolean
Do
If Hoja2.Range("A" & i) = "" Then
rango = "A" & i
salir = True
Else
i = i + 1
End If
Loop Until salir
'selecciono el rango vacío y pego la seleccion
Hoja2.Range(rango & ":" & "E" & i).Select
ActiveSheet.Paste
'opcional: si no quieres volver a la hoja1 comenta esta línea
Sheets("Hoja1").Select
-------------------------------------------------
esta funcioncilla (Que seguro que se puede mejorar) copia de A1 a E1, va a la segunda hoja y busca en la columna A la primera que esta vacía, entonces pega lo copiado.
si es lo que quieres adáptala a tus necesidades (seleccionando las columnas que quieras, etc). si tienes dudas nos cuentas.
salu2
Hola ceSharp, gracias por el codigo que me has proporcionado, pero hace lo mismo que el codigo que tengo ahorita
, lo que queria era que al dar el siguiente guardar, se coloque la copia de la hoja 1 a la hoja 2 debajo de las copias que ya existen
Gracias por el intento