try

[vba]
sub cOUNT()
With Sheets("Test").Range("D5").Resize(6)
.FormulaR1C1 = [{"='Data'!R[13]C[14]";"='Data'!R[24]C[14]";"='Data'!R[26]C[14]";"='Data'!R[31]C[14]";"='Data'!R[33]C[14]";"='Data'!R[47]C[14]"}]
End With

End Sub[/vba]