Encontrei esse código, que consegui ajustar para as minhas colunas de aplicação:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    With Target.Interior
    If .ColorIndex = xlColorIndexNone And Target.Column > 7 And Target.Column < 38 Then
        .ColorIndex = xlColorIndexAutomatic
        .Color = vbRed ' ou qualquer outra cor
    Else
        .ColorIndex = xlColorIndexNone
    End If
    End With
End Sub

Estou com problema que não consigo mais clicar na planilha o botão desfazer e refazer e ficou faltando pintar a célula da data do prazo de entrega (na linha correspondente).

Para não desabilitar os botões Desfazer/Refazer altere o código para esse:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

   With Target.Interior
    
   If Target.Column > 37 Or Target.Column < 8 Then
   Exit Sub
   Else
    If .ColorIndex = xlColorIndexNone Then
        .ColorIndex = xlColorIndexAutomatic
        .Color = vbRed ' ou qualquer outra cor
    Else
        .ColorIndex = xlColorIndexNone
    End If
    End If
    End With
End Sub

Na questão de pintar a célula da data, quando deve pintar, quando tiver uma data inserida ou quando vencer o prazo ou quando?

Quando tiver uma data inserida.

Obrigada!

Se for assim pode ser pela formatação condicional, veja no anexo.

Eu preciso que pinte a data correspondente àquela inserida no prazo de entrega no calendário ao lado, não a própria célula onde foi inserida a data.

Precisarei fazer isso para os outros meses também.

Obrigada!

Boobymcgee, você sabe transformar o código para que eu possa inserir em cada aba e assim alterar as colunas para cada caso?

Obrigada

gmendrib, veja se é assim: