Sub borra_en_blanco()
    Dim v_renglones_usados As Long
    
    v_renglones_usados = ActiveSheet.UsedRange.Rows.Count
    
    Range("A1").Offset(v_renglones_usados, 0).Select
    
    
    While ActiveCell.Row > 1
        If ActiveCell = "" Then
            Selection.EntireRow.Delete
        End If
        ActiveCell.Offset(-1, 0).Select
    Wend
End Sub
