The code below will count the color blue and red (so you can see how to add more colors) in column A of the active sheet. Then place the result in "Sheet2", colors in column A and color count in column B.
Here is the code:
Dim cBlue, cRed As Integer
For Each cell In Range("A:A")
If cell.Value = "blue" Then
cBlue = cBlue + 1
ElseIf cell.Value = "red" Then
cRed = cRed + 1
With Sheets("Sheet2").Range("A" & Rows.Count)
.End(xlUp).Offset(1, 0).Value = "Blue"
.End(xlUp).Offset(0, 1).Value = cBlue
.End(xlUp).Offset(1, 0).Value = "Red"
.End(xlUp).Offset(0, 1).Value = cRed
I've split the color name and color count into 2 cells as it is not advised to put multiple values in a single cell.