Copiar y pegar un rando en otra hoja.

[EGR33]

Soy principiante en esto . El tema en cuestión es que tengo un libro. En la primera hoja tengo un botón que me copia

Sub Copiarypegar()

'Seleccionamos todo el área contínua de datos, desde la celda donde estamos situados
Range("a24:o24").Select 'seleciona el rango especifico
'ActiveCell.CurrentRegion.Select
'Copiamos
Selection.Copy
'Pegamos en A24 de la hoja 2
Sheets("Daily Report").Select
Range("A24").Select 'el control se hará sobre la columna A, a partir de la fila
While ActiveCell.Value <> "" 'Busca la ultima fila
ActiveCell.Offset(1, 0).Select 'si la celda contiene datos, pasa a la fila siguiente
Wend
ActiveSheet.PasteSpecial
Application.CutCopyMode = False
Range("A24").Select
MsgBox ("DATOS GUARDADOS EXITOSAMENTE :)")




Hoja1.Rows(24).ClearContents
End Sub

el tema ahora es que en esa segunda hoja se van introduciendo datos . y tengo otro botón y quiero que me copie de la fila 24 (desde a24 a la o24) y busque la ultima fila ocupada en la tercera hoja en la fila 24 si esta libre o en la siguiente libre.

slds y grs