マクロVBA 連続数値を入れる

Sub Macro1()
  Dim i
  i = 1
  Do While i <= 10
   Cells(1, i) = i
   i = i + 1
  Loop
End Sub

数式の結果を値として取得する

Range("B3").Value = Range("B3").Value

=WEBSERVICE($C$3&C14&$C$6&$C$5&$C$7&$D$5&$C$8&$E$5&$C$9)

Sub Macro1()
    Dim i
    i = 14
    Do While i <= 30
     Range("d" & i) = "=WEBSERVICE($C$3&C" & i & "&$C$6&$C$5&$C$7&$D$5&$C$8&$E$5&$C$9)"
     Range("d" & i).Value = Range("d" & i).Value
     i = i + 1
    Loop
End Sub