VB SUM+CASE

Estou tentando colocar pra rodar uma macro com a função SUM + CASE, mas está dando erro.
A ideia é que apareça na célula C6 da Plan5 a soma das horas da empregada Adriana referentes ao mês de janeiro que estão cadastradas na Plan4.
Na Plan4 tem dados de várias pessoas juntos, o CASE seria para encontrar aqueles da Adriana e os que foram cadastrados com alguma data do mês de janeiro. A partir disso somar as horas referentes aos dados encontrados.
Deixei a linha do jeito mais fácil pra vocês entenderem o que quero:

Sub relatorio()
    Plan5.Range("C6").ClearContents
    ultimaLinha = Plan4.Cells(Rows.Count, "A").End(xlUp).Row
    For i = 3 To ultimaLinha
          Plan5.Range("C6").Formula = SUM(CASE WHEN Plan4.Cells(i, 1) = "ADRIANA" And Month(Plan4.Cells(i, 2)) = 1 THEN SUM(Plan4.Cells(i, 5)) END)
    Next
End Sub

Eu até tentei usar o somases, mas como a planilha estará vazia e será preenchida ao longo do ano, não sei qual o conjunto de células colocar na fórmula.

Por isso achei melhor fazer a macro pesquisar qual a última linha preenchida e fazer o cálculo só dessas linhas.

Alguém pode me ajudar?!?!?!?!