VBA code for calculating Average and No.of Position