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