Ayuda con un código

Señores expertos existe alguna posibilidad de seleccionar 499 filas o hasta la hasta la ultima fila activa.

Les comento lo siguiente tengo una planilla con más de 800 registro en la columna A,B,C lo que busco es copiar 499 filas de este listado y pegarlos en la hoja 2 y después eliminar las filas copiada de la hoja 1 donde esta la base de datos y hacer lo mismo con las siguientes filas y si en el ultimo bloque no están las 499 filas que solo considera hasta la ultima fila con datos.