Sub Limpiar_ventas()
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    Range("A1").Select
    Rows("4:4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A1").Select
    ActiveSheet.Paste
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    ActiveCell.FormulaR1C1 = "Vendedor"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Cliente"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[2]=""Vendedor"",RC[3],R[-1]C)"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[1]=""Cliente"",RC[2],R[-1]C)"
    Range("A3").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 2).Range("A1").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(0, -2).Range("A1:B1").Select
    Range(Selection, Selection.End(xlUp)).Select
    Selection.FillDown
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.AutoFilter
    Range("E1").Select
    ActiveSheet.Range("$A$1:$L$1954").AutoFilter Field:=5, Criteria1:= _
        "=*Descrip*", Operator:=xlOr, Criteria2:="="
    Application.Goto Reference:="R2C1:R54321C1"
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.EntireRow.Delete
    Selection.AutoFilter
End Sub
