Vba add array. I'm having trouble adding to this code.