Excel Vba Assign Range Values Of A Function