VBA procedure too large

[phil133]

Hi. I get the error that my procedure is too large. What I'm doing is copy pasting values from N to O only in even rows starting from 6. Please how can I reduce the procedure? Thanks for any help!

Selection.Copy
    Range("O6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

 

[RoryA]

Perhaps this:

Sub m()
Dim i As Long
MsgBox Range("N" & Rows.Count).End(xlUp).Row
For i = 6 To Range("N" & Rows.Count).End(xlUp).Row Step 2
    Range("O" & i).Value = Range("N" & i).Value
    Range("N" & i + 2).Calculate
Next i
End Sub

 

[phil133]

Thanks for your answer. This returns 51. The number of rows. If I delete the MsgBox line the result is the same with before. It copy pastes values without calculating first.

 

[RoryA]

Then I think you either need to fix your circular reference, or turn iterations on. Why do you have a circular reference?

 

[phil133]

I'm trying to backtest a strategy of selling options of a stock. So if (G6*H6)=I6 is lower than K5 (not a constant number) then G6 should be the ABS(K5)/I6. Do you mind if I paste a link from my file on dropbox so you see what happens?