Merging 2 macros

[anthoncl]

I have another question if I may ask, I am trying to merge 2 macros. The only manual work that is stopping me to combine both macro is Getting the Sum of K column in K1 and V column sum to cell L1

The code which I used to total K and L column is as below
lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row

Range("K" & (lr + 1)).Value = "=SUM(K4:K" & lr & ")"
Range("V" & (lr + 1)).Value = "=SUM(V4:V" & lr & ")"

So What I would need is getting Above sum to Cell K1 i.e. K1= Range("K" & (lr + 1)).Value = "=SUM(K4:K" & lr & ")"
&
L1 = Range("V" & (lr + 1)).Value = "=SUM(V4:V" & lr & ")"

Note: Both the cell should not do a past special. It should just bring the amount with "=" formula like we use on our daily use of excel. The reason being the formulas are inter related to to each other.

 

[Joe4]

So, do you just want the dynamic formula of "=V19" to appear in cell L1?

If so, you can just to this:

    Range("L1").Formula = "=V" & lr + 1