Macro para copiar determinado numero de veces datos en filas vacías

Necesito de la colaboración de los expertos. Tengo un libro con dos hojas (Registro y Diario). La hoja registro me sirve como formulario en la que lleno datos, los cuales copio a la hoja Diario. Tanto la Hoja registro como la hoja diario tienen los mismos encabezados en las celda. Ya tengo el cómo copiar los datos, pero ocupo que solo se puedan ingresar 30 datos en la hoja Diario, la cuestión es que ya limite para que solo se copie hasta la fila 31 (por los encabezados) y si vuelvo a dar clic en el botón una vez mas ( dato 31) me lo sobrescribe en la fila 2 donde esta el primer dato que se copio