Copiar y pegar a otra hoja

Hola, necesito ayuda en una macro que a través de un botón copie cada fila y la pegue en otra hoja,teniendo en cuenta que hay un botón que añade filas y cada vez que añada una fila y pulse en el botón mayorizar copie la nueva fila y la pase a la otra hoja.

otra cosa inicialmente hay 2 filas fijas a las que se le añaden los datos y ya,a partir de esas 2 filas ya hay que pulsar el botón añadir fila para una nueva fila,espero haberme explicado.te envío el código que he hecho no se que esta ma.estoy desesperada ya porque no logro terminar la hoja 2 y es solo copiar y pegar pero como no tengo grandes conocimientos sobre vba.

aquí va la macro;

Sub mayorizar()

' mayorizar Macro

Dim i, j As Integer

i = 2 'va a ser la que recorra las filas en la hoja1 llamada diario

j = 3 'va a ser la que recorra las filas en la hoja 2 llamada mayor

While Cells(i, 2).Value <> ""

Range("B" & i & ":I" & i).Select

Selection.Copy

Sheets("Mayor").Select

Range("A" & j).Select

ActiveSheet.Paste

Application.CutCopyMode = Off

i = i + 1 j = j + 1

Wend

End Sub

otra cosa si es posible de hacer que al pulsar solo copie y pegue y permanezca en la hoja 1("diario").

gracias,espero respuesta pronto estoy desesperada ya porque no me sale,he buscado varias soluciones con diferentes códigos y lo necesito para estudiar.

gracias