Insert Formula Macro

[SamHaynie]

Doing a project for work in which I am allocating hours of field employees to bill clients. I have a table which contains job code, employee name, job, rate, and number of hours in the columns. I made a pivot table, which of course added a new sheet. I am trying to make a Macro that inserts a sumif formula into a couple cells. There are 3 formulas. They should sum a column if the value has (formula 1) "building" (formula 2) "framing" (formula 3) "PM" (for property mangement). This is important because we can allocate the appropiate expenses to the appropriate company. As of now, when I hit the macro, nothing happens. I do not get an error notification, nor does a value appear.

I can do it manually, and it doesn't take terribly long, but if I can get this macro to work, it will save quite a bit of time.

(P.S. I am an intern, solving this will save the manager that hired me a bunch of time, which will be great news for me!)



Capture.PNG

[SamHaynie]

When I step through, it goes from the first line, Syb Enter_Formulas () to End Sub

[TMS]

Sub Enter_Formula()

Range("J4").Formula = "=SUMIF(A:A, "" * Building * "", F:F)"
Range("K4").Formula = "=SUMIF(A:A, "" * Framing * "", F:F)"
Range("L4").Formula = "=SUMIF(A:A, "" * PM * "", F:F)"

End Sub