Boucle For sous EXCEL

Bonjour,
actuellement étudiante je suis sur un gros projet et je souhaiterais m'aider d'EXCEL pour facilité les calculs . C'est pourquoi j'ai développer un mini programme assez simple qui est le suivant :

Sub Macro1()
'
' Macro1 Macro
'

'
Range("C3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*2"

Range("D3").Select
ActiveCell.FormulaR1C1 = "=CORREL(RC[-2]:R[26]C[-2],RC[-1]:R[26]C[-1])"
Selection.Copy

Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("C4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-1]*2"

Range("D3").Select
Selection.Copy

Range("E4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("C5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-1]*2"

Range("D3").Select
Selection.Copy

Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

For i = 6 To 25000
Range("Ci").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-1]*2"

Range("D3").Select
Selection.Copy

Range("Ei").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next

End Sub

Comme vous l'aurez surement compris je cherche à créer une boucle for afin de ne pas avoir à créer trois instructions par ligne de calcul.

J'ai évidemment des erreurs dans ce qui est à l'intérieur de la boucle for puisque je suis bien incapable en tant que débutante de programmer quoi que se soit !!!

Je serais ravie si l'un d'entre vous pouvais m'aider !!!

Je vous remercie !