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

    ' Completa de arriba para abajo.
    For v_i = 2 To v_último_renglón
        If Cells(v_i, 1) = "" Then
            Cells(v_i, 1) = Cells(v_i - 1, 1)
        End If
        If Cells(v_i, 2) = "" Then
            Cells(v_i, 2) = Cells(v_i - 1, 2)
        End If
    Next v_i
    
    ' Borra de abajo para arriba.
    For v_i = v_último_renglón To 2 Step -1
        If Left(Cells(v_i, 1), 5) = "Total" _
            Or Left(Cells(v_i, 2), 5) = "Total" _
            Or Cells(v_i, 3) = "" Then
            Rows(v_i).Select
            Selection.EntireRow.Delete
        End If
    Next v_i
    ' Ir a la primera celda.
    Range("a1").Select
End Sub
