Boa noite!!

Veja se te ajuda

Sub AleVBA_14407()
    With Range("B2")
        .Formula = "=SUMPRODUCT((RAZAO!$D$2:$D$75=A2)*(LEFT(RAZAO!$G$2:$G$75,2)=""TR"")*RAZAO!$H$2:$H$75)"
        With .Resize(Range("A" & Rows.Count).End(xlUp).Row - 1)
            .FillDown
            .Copy
            .PasteSpecial xlPasteValues
        End With
    End With
Application.CutCopyMode = False
End Sub

Att

Boa tarde,
Criei uma macro simples que não insere fórmulas para calcular os valores requeridos, mas insere os valores somados diretamenta.
O cálculo é executado na própria macro. Inseri as explicações como texto na macro.
Criei os nomes Dados e Data que pode ser visto na aba gerenciador de nomes na pasta formula.
Os nomes estão estáticos, mas podem ser melhorados inserindo fórmulas dinâmicas (utilizando Desloc).
Espero ter ajudado.
Um abraço.