appe = CreateObject("Excel.Application")
        appe.Visible = True

        appe.displayalerts = False
        appe.Workbooks.Open(Path & "orgs.xlsx")
        For i = 0 To 19
            appe.workbooks(1).worksheets(1).columns(1).Delete()
        Next
        For i = 0 To 19
            appe.workbooks(1).worksheets(1).columns(2).Delete()
        Next
        appe.Workbooks(1).Activesheet.Range("A1", "A50000").RemoveDuplicates()
        appe.Workbooks(1).SaveAs(Path & "src.csv", 6)
        appe.Workbooks(1).Close()
        appe.quit()