Count Of List & Make Unique

I have created a VBA Script with the goal of taking an initial Excel Spreadsheet and essentially creating a summary of it. The original Spreadsheet has data in it such as:

110 Compact Car
110 Compact Car
111 Full Sized Car
111 Full Sized Car
111 Full Sized Car
113 Truck

The numerical part of the above data is in column A, and the description is in column B of the original spreadsheet. I have been successful in creating a new Spreadsheet, naming the columns with each unique entry from the first set of data, but I cannot seem to correctly formulate a looping statement which correctly counts the above. The solution that I would like to get to on the new sheet is the following:

110 Compact Car 2
111 Full Sized Car 3
113 Truck 1

The number after the descriptions would be generated by the VBA Script and placed into column C in the new Spreadsheet behind the correct description.