Al agregar fecha, ponga la fecha del día anterior

Buenas tardes
Necesito que al asentar la factura con esta macro:

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, [C5:C36]) Is Nothing Then ' FALCATA
If Target.Column = 3 Then
If Cells(Target.Row, "B") = "" Then ' AGREGAR FECHA EN UNA COLUMNA
Cells(Target.Row, "B") = Date
End If
End If
End Sub

Me ponga la fecha del día anterior y no la actual, para que coincida con la fecha de la factura del proveedor, ya que la recibo al día siguiente.
Un saludo