I need some help in VBA for Excel?

Question

Below is a Excel Macro program I am trying to alter hope you can help
..................................................................................................................
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("C1").Select
Selection.Copy
Range("E1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
...................................................................................................................
So, I would like to make a loop (if that is the way to do it) that will increase the input in cell A1 by 1 (up to aprox 1700) on each cycle and place the answer in the next cell E1, E2, E3 etc that way I hope to avoid writing a very large program.. Thanks in advance for your help

Answer 1

check out http://www.pscode.com for great sample codes

Answer 2

You can use for n= 1 to 1700,,next construct to run the loop.
But Range("C1") value in your example has not changed in anyway.
If you just want to increment each row number by one there are easier ways too.

Answer 3

Your Q is answered here

http://answers.yahoo.com/question/index?qid=20070225184431AAO0vEe

Enjoy my profile, I am the VBAXLMan