This macro will accomplish what you describe, though my results from your data are not exactly the same. This should get you close enough to make final edits easier.
How/Where to install the macro:
1. Open up your workbook
2. Get into VB Editor (Press Alt+F11)
3. Insert a new module (Insert > Module)
4. Copy and Paste in your code (given above)
5. Get out of VBA (Press Alt+Q)
6. Save as a macro-enabled workbook
The macro is installed and ready to use.
a) Make sure your data is on the activesheet listed in column A
b) Press Alt-F8 and select SplitData from the macro list.
Bookmarks