Excel Vba Get Data From Sql Command To Delete All Units