Best Way To Create A Report

As it is now I use several loops to scan one sheet to collect the data and paste it onto a second sheet. The first sheet has several rows of data, denoted by one of four colors, that I have to collect and put into a report grouped by color. Each color represents the current status of a part of a project. The while loops stop on no data in column one. So each loop runs down the sheet, looks at the data row color and rejects it if it is not the right color for that section of the report. I am sure there is a better way to do this. I was thinking maybe create a temporary data base, collect the data adding fields for the current status then use a sql for each section of the report and insert rows as required.

While Worksheets("All Work"). Cells(iGetRow, 1).Value <> Empty
Set Cell1 = Cells(iGetRow, iGetCol)
Set Cell2 = Cells(iGetRow, iGetCol + 4)
Set rCurrent = Range(Cell1, Cell2)
rCurrent.Select
With Selection.Copy
If rCurrent.Interior.Color = Purple Then 'Purple is a constant
Worksheets("Report").Paste Destination:=Worksheets("Report").Cells(iPutRow, 1)
iPutRow = iPutRow + 1
End If
iGetRow = iGetRow + 1
End With
Wend

Data Structure:.............