Make a VBA function calculating the average of a Row