He dado palo a esto y no logro hacer lo que pretendo
Cita: 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