I dont have consecutive cells ,I have cells like G3, G6, G9... uptil G500 or so
How should I copy paste a formula into these cells without manually
selecting all these cells using ctrl key

Is there a way to select these cells and copy paste the formula

Assuming that the cells are incrementing by 3.... and shCurrent is the name
of your worksheet in question. Here is the code:

Dim rSelect As Range
Dim strRange As String
Dim nRange As Integer

strRange = "G3"
For nRange = 6 To 500 Step 3
strRange = strRange & ",G" & nRange
Next nRange

Set rSelect = shCurrent.Range(strRange)
shCurrent.Cells(1, 1).Copy
rSelect.Select
shCurrent.Paste
Application.CutCopyMode = False

*** One Final Note: I test out the above and find that the 500 is too much
for Excel to handle. 174 is the limit. So I suggest that you divide into
chunks of 150-loop iterations. That is:
For nRange = 6 To 150 Step 3
For nRange = 153 To 300 Step 3
For nRange = 303 To 500 Step 3



"vijaya" wrote:

I dont have consecutive cells ,I have cells like G3, G6, G9... uptil G500 or so
How should I copy paste a formula into these cells without manually
selecting all these cells using ctrl key

Is there a way to select these cells and copy paste the formula