Excel - fechas en macro

Buenas,

Necesitaba ayuda con la siguiente macro ya que me sale todo lo que quiero SALVO que cuando le digo que me ponga la fecha del día anterior, quisiera que los lunes me pusiera la del viernes y no la del domingo como ocurre con mi macro. ¿qué es lo que tengo que cambiar?

Sub COLOREAFILA()
fila = 4
col = 6

'ActiveSheet.Cells(I, 8).FormulaR1C1 = PEDIDO.Fields(2).Value
While ActiveSheet.Cells(fila, 1).FormulaR1C1 <> ""

If ActiveSheet.Cells(fila, col).FormulaR1C1 = "X" Then
If ActiveSheet.Cells(fila, col + 1).FormulaR1C1 = "" Then
ActiveSheet.Cells(fila, col + 1).FormulaR1C1 = (Date - 1)
End If
Rows(fila).Interior.ColorIndex = 6
End If




fila = fila + 1
Wend


End Sub

Por cierto, también me colorea la fila donde está la X la cual significa que mi pedido está fabricado.

un saludo.

gracias

hay dos funciones que pueden ser de utilidad
Weekday y WeekdayName
el resto es todo tuyo!

Saludos, desde Baires, JuanC