I am looking for a macro VB code to automatically group rows.

Example values from column A:
Row1: Training
Row2: Phase 1A + 1B
Row3: Architecture Overview
Row4: Training relevant AC components
Row5: System Setup
Row6: Setup enviornments
Row7: DEV
Row8: QA
Row9: PROD

This would result into the following groups:
Row 3+4 grouped into row 2
Row 2 grouped into row1
Row 7 - 9 grouped into row 6
Row 6 grouped into row 5

Would greatly appreciate if somebody implemented the same requirement
already....

Thanks,
Chris