Sub borra_en_blanco()
    Dim v_último_renglón
    
    ' Ir a la última celda usada.
    ActiveCell.SpecialCells(xlLastCell).Select
    
    ' Guardar el número del último renglón.
    v_último_renglón = ActiveCell.Row

    ' Ir a la primera celda.
    Range("a1").Select
End Sub
