Putting formula and drag down

Hi.
I'm trying a formula in "H2", but the code is giving error

Sub Test()
    Dim rng As Range
    Dim ws As Worksheet
     
    Set ws = Sheets("Folha1")
    Set rng = ws.Range("G9000").End(xlUp).Offset(, 7)
     
    With ws.Range("H2").Resize(rng.Row - 2 + 1, 1)
    .Formula = "=SE(Folha2!$E$2:$E$97=0;SOMARPRODUTO((B2=Folha2!$C$2:$C$324)*(Folha1!H$1=Folha2!$D$2:$D$324)*Folha2!$E$2:$E$324);"")"
    End With
     
    End Sub