problemas con macros

[3pies]

Bienvenido al foro fernandopina2428

Prueba este macro:

Código:

Sub Borrar_desde_la_primera_vacia()
'Nos situamos en la celda que nos interesa
Range("A1").Select
'Que busque la primera fila vacía, desde la celda activa
Do While Not IsEmpty(ActiveCell)
    'bajamos una fila
    ActiveCell.Offset(1, 0).Select
Loop
'seleccionamos todo lo que encontremos desde ahí, hasta el final
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
'eliminamos las filas
Selection.EntireRow.Delete
'Nos situamos de nuevo en la celda que nos interesa
Range("A1").Select
End Sub

Espero que apruebes ese exámen