Recuerda que antes de hacer operaciones de este tipo, es conveniente tener una copia del fichero, por si nos cargamos algo de manera imprevista.
Dicho lo cual, prueba estas dos líneas:
Código:
'Seleccionamos el rango comprendido entre la celda
'activa, y siete filas más abajo
Range(ActiveCell, ActiveCell.Offset(7, 0)).Select
'Eliminamos todas esas filas
Selection.EntireRow.Delete
Salu2