VBA insert formula

[jakobt]

VBA code not working:
defines the last row in a table
want to take the sum from cell E4 to the last row of the table (cell LR)?


Sub last()
dim lr as long
lr = activesheet.cells(ActiveSheet.rows.count, "B").End(xlup).Row
Range("E"& lr +3 ).value ="=sum(E4: & E & LR)"

end sub

 

[offthelip]

try this:

Dim lr As Long
lr = ActiveSheet.Cells(ActiveSheet.Rows.Count, "E").End(xlUp).Row
Range("E" & lr + 3).Value = "=sum(E4:E" & lr & ")"

 

[jakobt]

Thanks that worked.

 

[jakobt]

Actually, one more related query:

In cell last row + 7 I want to add a formula that the negative of cell lr +2 should be subtracted:

Want to add to the query:
Range("E" & LR + 7).value = "-E" & lr +2""