Transpose according to color.interior.index

Hello everybody
I have a lot of data in range("A1:A"& LastRow)
there are some cells which has a red color of interior index number 3 .
According to that index number of the color I want to transpose the data beginning with this index number till before the next one .. The desired results are in Sheets("Result") to illustarte the desired results..
Please don't depend on the string (Header) as it is just a sample to the original wb