Primera linea vacia(libre)

[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