Stop calculation to copy data

[LearnMeExcel]

Hi All
i have this code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Long
If Target.Address = "$B$2" Then
    LR = Range("b" & Rows.Count).End(xlUp).Row
    Range("i3:i" & LR).Copy
    Range("g3:g" & LR).PasteSpecial xlPasteValues
End If
End Sub

then problem here
column i has formula changes when B2 changed
i want my code to copy column i before the values changes
becuse this code copy the data after b2 changed
how i can solve it

 

[PA HS Teacher]

Have you tried this?

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> MyCode()<br>Application.Calculation = xlCalculationManual<br>   MsgBox "This does stuff."<br>Application.Calculation = xlCalculationAutomatic<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[LearnMeExcel]

Hi PA HS Teacher
i try it
but it isn't working
i don't know why?