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

I couldn't see what you are trying to do.
When will your loop end?
do you want to set the value of A1 to be 1,2,3,4 and so on until 1700, then make that number 1700 in E1?
I can't understand your question..
Any way, you can simplify your code like this

Range( "A1").value = 1
RAnge( "E1").value = Range( "C1").value

These two lines are the alternative of your whole code

mail me for details

Enjoy my profile, I am the VBAXLMan