Macro For Sorting A Sheet By Colorization

I have a sheet with over a thousand part numbers (lines of data) whereby they are uniquely colored.

I am looking for code to allow the Macro to Sort the lines by the color of the line, identical to the Excel provided function. However, in that one- it is tedious to add the levels for the multiple Colors going on and I would like the Macro to perform it all at once.

So, I have five unique colors (Maybe doesn't matter)that remain constant: Red-Color Index:3, Yellow-color Index:6, Lime-Color Index:43, Gold-Color Index:44, and Gray-50%- Color Index:16? (I think).

So- when I run the Macro I would like it to Sort the data and group all the Colored lines (Parts) in series (doesn't matter the color order). In other words if there are 50 part numbers red and 100 part numbers Lime then Rows 1-50 are all the Filtered Red parts and Rows 51-150 are all the Lime and so on for all the other Colors.