Vba Array With Division