Tenta assim

Sub InserirData ()

Dim lin As Long

On Error Resume Next

lin = ActiveCell.Row

If Range("B" & lin).Value = "Em Aberto" _
And Range("C" & lin).Value <> "" _
And Range("D" & lin).Value <> "" Then

Range("E" & lin).Value = Date

End If

End Sub

Boa tarde Pedro,

Teste o código que está no módulo 1 do arquivo em anexo.

att,

MPrudencio,
O processo deve se repetir até a Última Célula Preenchida da Coluna B.
Como fazer?

brunoxro

Very Good, Amigo!
Obrigado!
Fiz uma pequena alteração:

Sub AtualizaDataVenda()
    
    Dim Nlin    As Double: Nlin = Range("B1048575").End(xlUp).Row
    Dim j       As Double

    'Da linha 1 até a última preenchida da coluna B
    For j = 1 To Nlin
        Application.EnableEvents = False
        
        Rem Cells(Linha,Coluna)
        
        'Se a célula da coluna B é Em Aberto, C e D são vazias
        If UCase(Trim(Cells(j, 2).Value)) = UCase(Trim("Em Aberto")) _
        And UCase(Trim(Cells(j, 3).Value)) <> Empty _
        And UCase(Trim(Cells(j, 4).Value)) <> Empty Then
            'Célula da coluna E recebe a data de hoje
            Cells(j, 5).Value = Date
        
        End If
        Application.EnableEvents = True
        
    Next j
   
End Sub