VBA繰り返しコピーと貼り付け

★コード

Sub value()
 Dim i As Long
 For i = 1 To 200
 Cells(i, 1).value = i
 Cells(i, 2).value = Cells(1, 3).value
 Next i
End Sub

～以上～