Need a macro

[Mldeuser]

I have a spread sheet that is broken into two sections, the first section requires some input in certain columns then the other columns have formauls that work off the information keyed into the first five columns.

The second part of the spread sheet is all hand entered.

There is a blank row that seperates the two sections.

I need a macro that will look at column "C" starting a row "12" and if the cell is populated to insert a formula into column "I" until it comes to the blank row then it should stop as the second half of the spread sheet is hand entered and no formulas are needed.

Thanks
Mark

 

[onlyadrafter]

Hello,

you haven't specified the formula, so I made one up, you will need to change it.

Sub ADD_FORMULA_TO_I()
    For MY_ROWS = 12 To Range("A" & Rows.Count).End(xlUp).End(xlUp).Row - 1
        If Not IsEmpty(Range("C" & MY_ROWS).Value) Then
            Range("I" & MY_ROWS).Formula = "=G" & MY_ROWS & "+H" & MY_ROWS
        End If
    Next MY_ROWS
End Sub

this assumes col A always contains data.

 

[Mldeuser]

Here is the formula that I will be inserting into the macro:

IF(OR(D13="IP",U13="C"),(E13*H13)+(S13),IF(AND(D13="n/a",(S13>0)),S13,IF(G13>$B$3,"n/a",IF(OR(YEAR(D13)<(YEAR($B$3)),(MONTH(D13)<MONTH($B$3))),(E13/(G13-F13+1))*($B$3-G13)+(E13*Q13)+(S13),IF(AND(DAY(D13)<=20,MONTH(D13)=MONTH($B$3)),(E13/(G13-F13+1))*($B$3-G13)+(E13*Q13)+(S13),IF(AND(DAY(D13)>20,MONTH(D13)=MONTH($B$3)),(E13/(G13-F13+1))*(($B$3-F13)+1)+(E13*Q13)+(S13)))))))

I will give your macro a run

Thanks
Mark

 

[Mldeuser]

I tested the Macro and the only problem is that it does not stop at the break between sections. Is there a way for the macro to stop when it reaches the blank row.

 

[Mldeuser]

I made a few changes to the macro and it does what I need.

Thank you for your help with this

Mark