Podría hacerce esto en excel? ayuda!!!!

[ceSharp]

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