Hi
I have recorded the macro below and removed Activecell and Select. I have about 50 line upto Range(D50) is there a another way it can be done?

[VBA]
sub cOUNT()
Sheets("Test").select
Range("D5").FormulaR1C1 = "='Data'!R[13]C[14]"
Range("D6").FormulaR1C1 = "='Data'!R[24]C[14]"
Range("D7").FormulaR1C1 = "='Data'!R[26]C[14]"
Range("D8").FormulaR1C1 = "='Data'!R[31]C[14]"
Range("D9").FormulaR1C1 = "='Data'!R[33]C[14]"
Range("D10").FormulaR1C1 = "='Data'!R[47]C[14]"

End Sub[/VBA]

Thanking for your time

Nurofen