Help on basic VBA

Hi all, i seem to be having trouble on a basic piece of VBA, im trying to add the below formula into e3 to last row, and im taking the last row info from the count of column J, but when i run it, it only does it in cell e3 and then moves on to the next part of the code, can anyone tell me what ive done wrong?


Sub Macro2()
Dim LR As Long
Application.ScreenUpdating = False
With ActiveSheet
LR = .Range("J" & .Rows.Count).End(xlUp).Row

Range("E3").Select
With .Range("E3:E" & LR)
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],[TECHTM.xls]Sheet1!R2C1:R1000C3,3,0)"
.Value = .Value