Insertar fila y cambiar de color

[Taisse]

Hola,

Necesito ayuda con un código y agradecería mucho si alguien me echara una mano.

Necesito dos cosas y después de horas no hay manera de conseguirlo, soy un negado para la programacion.

1. Hacer que cada vez que el codigo de proveedor cambie inserte una fila entre los dos.

2. Hacer que cada vez que haya una fecha que sea anterior a la fecha de sistema se ponga en color rojo.

A lo que habia llegado es a :

Sub ()

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

Range("A2").Select

Do Until IsEmpty(ActiveCell)

If ( ? )

Target.EntireRow.Interior.ColorIndex = 42

End If

ActiveCell.Offset(1, 0).Select

Loop

End Sub

Cualquier ayuda o nocion me seran de gran ayuda y estaria muy agradecido.

Muchas gracias!

Archivo.xls