Macro to create new tabs based off of a type and apply conditional formatting

I have a workbook with one tab and I am trying to figure out a macro that will do the following:

1-Take the data in Sheet1 and have the data broken into tabs containing the respective candy
-so a tab for bubble gum, candy bar, licorice, lollipop and stick candy
2-In each tab, have conditional formatting based on value in the Quality column
-red for a value between 0-25
-pink for a value between 26-50
-yellow for a value between 51-75
-green for a value between 76-100

For each tab, I still want each column that exists in Sheet1. I just want them broken out into new tabs.

Bit more than I originally thought it would be:

Please Login or Register  to view this content.

That worked, thank you. I will mark as complete, but I am curious as to how the code changes if instead of font color, its the cell color that changes?

font change the text color; interior changes the cell color

Thank you, I have changed the macro to reflect the cell color to change and not the font. So now when I run the macro, the cell colors do change, but I think I a now missing something to tell the macro when to stop. For example, for lollipop including the title row, there are 25 rows, but the cells in C26 and onward show the color red.

Do I need to include something like "Interior.ColorIndex = xlNone" for rows that have no data?