Nao tem nenhum codigo na planilha.

Ja pensou em usar formulas ou tabela dinamica?

Marcelo,
Grato pelo retorno!
Desculpe, acabei colocando a rotina na pasta pessoal de macros ..., agora já está correto.
De qualquer forma, segue abaixo o código que desenvolvi, entretanto, a macro não está obedecendo ao critério de >= às datas.
Com relação a TDinâmica, minha chefe não aceita porque o arquivo deve seguir em formato de tabela original recebida, por isso preciso da rotina com o Sumifs.
Muito grato.
Josenildo

Sub SomaSesComCriterio_Ex01()
    Dim uLin As Long
    Dim Lin As Integer
    Dim w As Worksheet
    uLin = Cells(Rows.Count, 4).End(xlUp).Row
    Set w = Sheets("Avoid")
    w.Select
        For Lin = 2 To uLin
            Cells(Lin, 5) = Application.WorksheetFunction.SumIfs(w.Range("d_Valor"), w.Range("d_Data"), ">=" & Cells(Lin, 4))
        Next Lin
End Sub

Josenildo, bom dia!

No critério, use a data no formato americano:

Cells(Lin, 5) = Application.WorksheetFunction.SumIfs(w.Range("d_Valor"), w.Range("d_Data"), ">=" & Format(Cells(Lin, 4), "mm/dd/yyyy"))

Edson,
Muito obrigado! Deu super certo!
Abcs