excel VBA: assigning ID to data in newly added column (refer to images)

Hi guys,

I believe I did not explain my situation well enough to be recommended a solution.

I would like to allocate an ID for each row of data.

However, the ID is stated only once, above the data (like a title).

http://img.photobucket.com/albums/v1...oj_current.jpg

I would need to perhaps count the number of cells within from "ASTRO" to the next "ASTRO" such that I can freshly add a new column and populate it with the respective ID.

http://img.photobucket.com/albums/v1...oj_desired.jpg

Is there a code available for this?

Thank you very very much. :)