Vab(emailsencond).docVIP

Vab(email sencod) Dim curSheet As Object Dim Crow, Ccol, i As Long Dim Vendor As String Dim UPCcol, VendorCol, VendornbrCol As IntegerSub emailtwo() Application.DisplayAlerts = False Application.ScreenUpdating = FalseRange(Cells(2, 1), Cells(80000, 256)).Sort Key1:=Range(D1) Range(Cells(2, 1), Cells(80000, 256)).Sort Key1:=Range(T1)Cells.Select Selection.AutoFilter Field:=37, Criteria1:=r = [C1048576].End(xlUp).RowIf r 1 ThenRange(D2:D [C1048576].End(xlUp).Row).SpecialCells(xlCellTypeVisible).SelectSelection.EntireRow.DeleteEnd If If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAl