I have got the following code which correcty puts various text in the required cells. I'm going to have to do this for a lot of loops and would thus just like to know if there is a more efficient way of achieving this. The code below is probably

*the*most inefficient code to do what I would like to do.

Code:

```
Sub ResultCopy()
j = 1
For i = 1 To 24
Range("A" & i) = "Strategy " '& j
Range("B" & i) = j
i = i + 1
j = j + 1
Range("A" & i) = "Initial DD"
i = i + 1
Range("A" & i) = "DD Increase"
i = i + 1
Range("A" & i) = "1st YoR"
i = i + 1
Range("A" & i) = "Life expectency"
i = i + 1
Range("A" & i) = "AA"
Range("B" & i) = "ALSI"
Range("C" & i) = "ALBI"
Range("D" & i) = "Top40"
Range("E" & i) = "SA Property"
Range("F" & i) = "Int Equity"
Range("G" & i) = "Int Bonds"
i = i + 2
Range("A" & i) = "Present Value"
i = i + 1
Range("A" & i) = "Annuity"
i = i + 1
Range("A" & i) = "Terminal Value"
i = i + 1
Range("A" & i) = "Total"
i = i + 1
Next i
End sub
```