Formato Condicional

Te dejo un código que colorea la celda de la columna DE cuando el valor de la columna A es "marinero". Espero te sirva. Saludos (Me avisas si anda)
Debes pegar el procedimiento en la ventana de código de la hoja donde tienes los datos
**********************
Private Sub Worksheet_Change(ByVal Target As Range)
''Creada por FSerrano en 110531
''Para carituva en TodoExpertos.com
''Colorea la celda de la columna D siempre que el valor de la celda en la columna A
''sea "marinero"
'Establece la columna A como la que dispara el proceso
If Target.Column = 1 Then
'Captura la posición inicial
antes = ActiveCell.Address
'Realiza la comparación de la celda recien ingresada
If Cells(ActiveCell.Row - 1, ActiveCell.Column).Value = "marinero" Then
Cells(ActiveCell.Row - 1, 4).Select
'Aplica el formato a la misma fila pero en la columna D
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="="""""""""""""
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Else
'En caso de que el valor no sea "marinero" quita el formato
Cells(ActiveCell.Row - 1, 4).Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="="""""""""""""
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = xlNone
.TintAndShade = 0
End With
End If
'Vuelve a la posición inicial
Range(antes).Activate
End If
End Sub

Gracias por tomarte el tiempo para responder, pero la verdad es muy complejo.
COn excel me manejo bastante bien pero tengo mis limites y los de los códigos la verdad no lo vi nunca, puede ser por eso que no entendí.-
De todos modos muchísimas gracias!