Vba Define Variable And Assign Value To All Observations