Primera linea vacia(libre)

[JoaoM]

He dado palo a esto y no logro hacer lo que pretendo

Private Sub cmdPegar_Click()
'Para pegar el texto copiado por cmdCopiar en la hoja CopyImpres
Dim Celda As Integer
Celda = 1
Do While Cells(Celda, 1).Value <> "" 'Busca Ultima celda y vacia
If Cells(Celda, 1).Value = "" Then Exit Do 'Busca Ultima celda y vacia
Celda = Celda + 1 'ultima celda y vacia
Loop 'bucle
Cells(Celda, 1).Select 'Seleciona la celda donde pegar
Sheets("CopyImpres").Paste 'Pega lo selecionado
End Sub

Lo que quiero es que me pegue despues de la linea ocupada, la primera vacia.
Tengo un boton que copia la linea de una hoja y este boton la pega en una linea de otra hoja determinada ya, pero me la pega en la misma linea que está ocupada y por lo mismo me elimina el dato anterior de esa linea y quiero que pegue despues de la ultima ocupada, primera linea vacia a partir de A2 porque A1 esta con titulos

[Monimo]

Y porque no, cuando seleccionas la celda donde pegar le aumentas uno?

Cells(Celda, 1).Select 'Seleciona la celda donde pegar

asi:
Cells(Celda+1, 1).Select 'Seleciona la celda donde pegar

[JoaoM]

no me funciona (a mi)
Private Sub cmdPegar_Click()
'Para pegar el texto copiado por cmdCopiar en la hoja CopyImpres
Dim Celda As Integer
Celda = 1
Do While Cells(Celda, 1).Value <> "" 'Busca Ultima celda y vacia
If Cells(Celda, 1).Value = "" Then Exit Do 'Busca Ultima celda y vacia
Celda = Celda + 1 'ultima celda y vacia
Loop 'bucle
Cells(Celda + 1, 1).Select 'Seleciona la celda donde pegar
Sheets("CopyImpres").Paste 'Pega lo selecionado
End Sub

Es con separacion y no unido Cells(Celda+1, 1).Select 'Seleciona la celda donde pegar

Si se coloca unida automaticamente se separa

[mrocf]

Hola! Joao. Intenta con:

Private Sub cmdPegar_Click()
Cells(Rows.Count, "A").End(xlUp).Offset(1).Select 'Busca celda vacía
ActiveSheet.Paste 'Pega lo seleccionado
End Sub

Saludos, Cacho.

[JoaoM]

No me dá y esta linea tiene que ser
Sheets("CopyImpres").Paste 'Pega lo selecionado
si no no pega en la hoja CopyImpres

Refiero que el copiado de la linea es echo desde un boton en un form ejecutado en la hoja; 1, 2, 3, 4 o 5, de cualquier de estas se ejecuta el formulario y el pegado tambien del mismo modo, de un boton del formulario desde cualquier de estas 5 hojas.
Con el formulario en cualquier de las 5 hojas tiene que pegar en la hoja 6 "CopyImpres" que no está activa ni puede estar en el momento de la ejecucion del form, mientras no se termine lo que se pueda estar haciendo, no se puede cerrar el formularioy si lo cierra no puede ni copiar ni pegar porque los botones estan en el form