You could use arrays to store the corresponding numbers
[vba]Sub Nurofen()
Dim arr
arr1 = Array(5, 6, 7, 8, 9, 10)
arr2 = Array(13, 24, 26, 31, 33, 47)

For i = 0 To UBound(arr1)
Sheets("Test").Select
Range("D" & arr1(i)).FormulaR1C1 = "='Data'!R[" & arr2(i) & "]C[14]"
Next

End Sub

[/vba]