Macro to post formula not values

  • I have the following:

    Code
    Dim LR As Long
    With Sheets("inventory")
    LR = .Range("a" & Rows.Count).End(xlUp).Row 
    .Range("e" & LR + 1).Value = WorksheetFunction.Sum(.Range("e1:e" & LR))
    End With


    What I need is the formula sum(E1:E5) not just the absolue value the above macro gives me. Then I can see if I have errors. My ending units should now become my beginning units and the movements go to -0-. I need it for all columns, but if I get the logic I can apply to the other columns.

    See attached:

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!