Just a thought - sorry not experienced enough to help much.

As this was posted in the programming forum surely the post starter would like the VBA code to do this programmatically and not as suggested by Data/Sort.

Yes, that is how to do it on the worksheet but not, i suspect, what was requested.

Please don't flame me for expressing my opinion.