MACRO to generate serial number in shared workbook

Hi, I'm really new in MACRO and would appreciate the help.

I have created a shared workbook, to be update simultaneously by 10 people.

I would like to generate the unique serial number using the following conditions.

Type (if received date is in year 2014)
RFQ - serial number should start with RFQ14/1001
WOC - serial number should start with WOC14/1001
TAD- serial number should start with TAD14/1001
SAD- serial number should start with SAD14/1001

Type (if received date is in year 2015)
RFQ - serial number should start with RFQ15/1001
WOC - serial number should start with WOC15/1001
TAD- serial number should start with TAD15/1001
SAD- serial number should start with SAD15/1001

If I select the type as "RFQ" and the received date is in year 2014, once i click the Command Button then it show generate serial no "RFQ14/1001".
For the next line item, if i select RFQ again and received date is in year 2014, then the next serial no should be RFQ14/1002 etc.

The result in the tabular format should be as follows:
Type Serial no Received Date
RFQ RFQ14/1001 01/01/2014
WOC WOC14/1001 02/04/2014
RFQ RFQ14/1002 06/06/2014
SAD SAD14/1001 10/08/2014
SAD SAD14/1002 14/10/2014
WOC WOC14/1002 18/12/2014
RFQ RFQ14/1003 21/02/2014
RFQ RFQ15/1001 05/05/2015
WOC WOC15/1001 05/07/2015
RFQ RFQ15/1002 05/09/2015
SAD SAD15/1001 05/11/2015

Greatly appreciate your help. Thanks you.