Tengo error de macro, contar los días?

Tengo problema la fórmula

Te anexo el macro y tengo error 

ini = 2
    fin = Range("B" & Rows.Count).End(xlUp).Row
    For i = ini To fin + 1
        If Cells(i, "B") = "" Then
            Cells(i, "G") = "Total día"
            Cells(i, "G").Interior.ColorIndex = 43
            Cells(i, "H").FormulaR1C1 = "=SUM(1/COUNTIF(R" & ini & "C[-1]:R" & i - 1 & "C[-1],R" & ini & "C[-1]:R" & i - 1 & "C[-1]))"
            ini = i + 1
        End If
    Next

Debo poner el macro "FormulaArray" y lo que tengo es "FormulaR1C1"