Como sumar dos criterios en la misma columna con macros en excel.

Prueba lo siguiente:

=SUMAR.SI(B2:B10,"Azul",C2:C10)+SUMAR.SI(B2:B10,"Blanco",C2:C10)

Nota: Cambia las comas ( , )  por punto y coma ( ; ) si lo utilizas de separador de argumentos.

Gracias por la respuesta en tan poco tiempo, yo use la fórmula sumar. Si. Conjunto; pero busco hacerlo con macros, con si anidado usando for next, tengo el siguiente código me podría ayudar a modificar el siguiente código:

Sub IfAnidado()
'inicializo la variable resultado
Dim Res As Double
Dim i As Long
Res = 0
    'comienzo el bucle
    For i = 2 To 100
        If Cells(i, 2) = "Rojo" Then   'criterio que debe cumplir Columna B
            'sumo sólo los valores que cumplen el criterio
            'y voy sumando acumuladamente a lo anterior.
            Res = Res + Cells(i, 3) 'Rango a sumar C
        End If
        If Hoja7.Cells(i, 3) = Empty Then
            Hoja7.Cells(i, 3) = Res
        End If
    Next
End Sub

Gracias por la respuesta en tan poco tiempo, yo use la fórmula sumar. Si. Conjunto; pero busco hacerlo con macros, con si anidado usando for next, tengo el siguiente código me podría ayudar a modificar el siguiente código:

Sub IfAnidado()
'inicializo la variable resultado
Dim Res As Double
Dim i As Long
Res = 0
    'comienzo el bucle
    For i = 2 To 100
        If Cells(i, 2) = "Rojo" Then   'criterio que debe cumplir Columna B
            'sumo sólo los valores que cumplen el criterio
            'y voy sumando acumuladamente a lo anterior.
            Res = Res + Cells(i, 3) 'Rango a sumar C
        End If
        If Hoja7.Cells(i, 3) = Empty Then
            Hoja7.Cells(i, 3) = Res
        End If
    Next
End Sub

No es necesario el bucle:

Sub sumar()
  Dim res As Double
  Dim lr As Long
  lr = Range("B" & Rows.Count).End(3).Row
  res = WorksheetFunction.SumIf(Range("B2:B" & lr), "Azul", Range("C2:C" & lr)) + _
        WorksheetFunction.SumIf(Range("B2:B" & lr), "Blanco", Range("C2:C" & lr))
  MsgBox res
End Sub

Pero si quieres aprende cómo hacerlo con bucle:

Sub If_Anidado()
  Dim i As Long
  Dim res As Double
  For i = 2 To Range("B" & Rows.Count).End(3).Row
    If LCase(Range("B" & i).Value) = LCase("Azul") Or LCase(Range("B" & i).Value) = LCase("Blanco") Then
      res = res + Range("C" & i).Value
    End If
  Next
  MsgBox res
End Sub

¡Gracias! 

Buenos días, disculpa la molestia, si quiero pegar el resultado en la primer celda vacía que líneas de código le tengo que agregar. No lo quiero en una caja de mensaje sino en una celda vacía.