Copy Only Value's Cell

[lucashsoares]

Hi there, I needed to copy the cell's value to another cell (in another sheet creating a list) whenever this same cell changed its value. I've created a simple code that works but it copies all things from this specific cell that I only want its content and this is causing me problems with references. Here it follows the code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$8" Then
Application.EnableEvents = False
Range("D8").Select
Selection.Copy
Sheets("Plan2").Select
Selection.Insert Shift:=xlDown
Sheets("Plan1").Select
Application.CutCopyMode = False
Application.EnableEvents = True
End If
End Sub

Any help is greatly appreciated.

 

[bobsan42]

replace

[COLOR=#333333]Selection.Insert Shift:=xlDown[/COLOR]

with

Selection.PasteSpecial xlPasteValues

If you need to insert and shift down then do it like this: first INSERT -> Then COPY -> Then PasteSpecial

and try to avoid selection when not needed for example:

Range("D8").Copy