Need help for edit code

[etheer]

Hi
i need help edit code copy cell and past to another cell

[jolivanes]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E:E")) Is Nothing Then
If Target.Value = "Yes" Then Target.Offset(, 1).Value = "Yes": Target.Offset(, 2).Value = Target.Offset(, -4).Value
End If
End Sub