VBA to add a formula until the last row is blank

[Legacy 51064]

I am having a little bit of trouble adding the following formulas to my vba code. I would like to enter these formulas into their respective columns until the bottom of column B. Data is entered into column B and the number of rows varries.


Column F
=IF(E2=0,0,LEFT(E2,FIND("–",E2,1)-2))

Column G
=Sum(H2:M2)

I appreciate any help that you offer.

 

[just_jon]

Getting ready to go but will check back to see if nobody else picked you up.

BTW, you go to Cham~Bana?

 

[Legacy 51064]

Yes, I finished my undergraduate in '98

 

[just_jon]

'73

 

[just_jon]

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> foo()
<SPAN style="color:#00007F">Dim</SPAN> Rng <SPAN style="color:#00007F">As</SPAN> Range, c <SPAN style="color:#00007F">As</SPAN> Range
<SPAN style="color:#00007F">Set</SPAN> Rng = Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
<SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> c <SPAN style="color:#00007F">In</SPAN> Rng
    c.Offset(0, 4).FormulaR1C1 = "=if(RC[-1]=0,0,LEFT(RC[-1],FIND(" & """" & "-" & """" & ",RC[-1],1)-2))"
    c.Offset(0, 5).FormulaR1C1 = "=SUM(RC[1]:RC[6])"
<SPAN style="color:#00007F">Next</SPAN> c
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

 

[Legacy 51064]

Jon, Thank you. The code worked perfectly!