Macro to take a list of numbers and to create a list of the ranges

Hi all,

I am looking for some help for a Macro that would take a list of numbers within number types to define the ranges that the numbers fall into.

It is probably as clear as mud but I will try to show what I mean. I have attached a Microsoft Excel document that contains the information but here is a small sub set of the information;

4414608 announcement
4414609 announcement
4414611 announcement
4414613 announcement
4414614 announcement
4414616 announcement
4414617 announcement
4414618 announcement
4414714 announcement
4415123 agent-loginid
4415176 agent-loginid
4415177 agent-loginid
4415178 agent-loginid
4415184 agent-loginid
4415194 agent-loginid
4413873 station-user
4413874 station-user
4413875 station-user
4415097 station-user
4415701 station-user
4415703 station-user
4415714 station-user
4415715 station-user
4415716 station-user
4415717 station-user
4415719 station-user

Would output as follow
announcement 4414608 4414609
announcement 4414611
announcement 4414613 4414614
announcement 4414616 4414618
announcement 4414714
agent-loginid 4415123
agent-loginid 4415176 4415178
agent-loginid 4415184
agent-loginid 4415194
station-user 4413873 4413875
station-user 4415097
station-user 4415701
station-user 4415703
station-user 4415714 4415717
station-user 4415719

Any help would be must appreciated.