Vba Create Array Based On Cell Value Cut