В следующем примере будет записано число 1,2,3,4 ... на ячейках A1 до A500
Редактировать: для ячеек с B1 по B500 это добавит следующую формулу = 5 * i, умножит в 5 раз число, сгенерированное циклом (от 1 до 500).
Sub TestLoop()
Dim i As Long
Dim formulaText As String
For i = 1 To 500
formulaText = "=5*" & i & "&" & """ Is The product of 5 * " & i & """"
Range("A" & i).Value = "Number: " & i
Range("B" & i).Formula = formulaText
Next
End Sub