Ayuda para realizar un bucle

Señores expertos favor su ayuda, tengo una macro que copia desde la hoja 1 las 499 primeras filas, luego las pega en la hoja 2, la traspasa a texto y las envía por correo, después elimina las 499 filas copiadas de la hoja 1 y vuelve a repetir el proceso.

Es posible realizar este proceso automáticamente hasta que no existan datos en la hoja 1 los datos comienzan en la fila 16.