Sumar valores en excel vba

otra vez esperando tu ayuda...

Tengo otra hoja con estos valores ... X ejemplo:

b c d e f

camisa azul L 4 5
camisa roja L 3 1
camisa azul m 5 5
camisa blanca L 6 0
camisa azul L 7 4
camisa blanca s 8 5
camisa azul s 8 7
camisa roja L 2 0
camisa azul L 4 5

y necesito x medio de vba hacer lo siguiente:

cantidades de camisa azul, roja blanca etc...

Ejemplo cantidades de camisa azul (no interesa la talla de la columna d): de la columna e:28 y del a columna f: 26

tengo este código pero no me da el valor que necesito

Dim uni1, uni2, unitotal As Integer
uni1 = 0
uni2 = 0
Range("B1").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Offset(0, 1).Value Like "*azul*" Then
uni1 = ActiveCell.Offset(0, 3).Value
uni2 = uni1 + uni1
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(5, 0).Value = uni2

en la linea If ActiveCell.Offset(0, 1).Value Like "*azul*"....tambn probé con ="azul...pero no me da"

No me saca la suma real... Favor si me puedes colaborar con este tema y como haría para que me sacara azul y roja en celdas diferentes x ejemplo...