This may be an easy one but I am just starting to learn all of this. below is a code that works great, only i would have to type it over and over again until i reach row 250 i want to loop through the E Column cell rows from 2 - 250 until it reaches the end. Any help would be greatly appreciated...

Range("E2").Select

ActiveCell.FormulaR1C1 = ActiveCell.Value

If Range("D2").Value > "0" Then

Range("N2").Formula = "=M2*D2"

Else

Range("N2").Formula = ""

End If

Range("B2").Value = Range("O2").Value

Range("E3").Select

ActiveCell.FormulaR1C1 = ActiveCell.Value

If Range("D3").Value > "0" Then

Range("N3").Formula = "=M3*D3"

Else

Range("N3").Formula = ""

End If

'Range("B3").Value = Range("O3").Value

Range("E4").Select

ActiveCell.FormulaR1C1 = ActiveCell.Value

If Range("D4").Value > "0" Then

Range("N4").Formula = "=M4*D4"

Else

Range("N4").Formula = ""

End If

'Range("B4").Value = Range("O4").Value

etc....

etc....

etc....

Range("E2").Select

ActiveCell.FormulaR1C1 = ActiveCell.Value

If Range("D2").Value > "0" Then

Range("N2").Formula = "=M2*D2"

Else

Range("N2").Formula = ""

End If

Range("B2").Value = Range("O2").Value

Range("E3").Select

ActiveCell.FormulaR1C1 = ActiveCell.Value

If Range("D3").Value > "0" Then

Range("N3").Formula = "=M3*D3"

Else

Range("N3").Formula = ""

End If

'Range("B3").Value = Range("O3").Value

Range("E4").Select

ActiveCell.FormulaR1C1 = ActiveCell.Value

If Range("D4").Value > "0" Then

Range("N4").Formula = "=M4*D4"

Else

Range("N4").Formula = ""

End If

'Range("B4").Value = Range("O4").Value

etc....

etc....

etc....

Last edited: