I Need help edit code copy and past

[etheer]

Hi
I have code work very good copy from cell to another cell but i need edit it
If in cell G number not past agian new number from cell A

Private Sub Worksheet_Calculate()
Dim c As Range
Application.EnableEvents = False
        On Error Resume Next
For Each c In Range("E7:E" & Cells(Rows.Count, "E").End(xlUp).Row)
        If c = "Yes" Then
            With c
                .Offset(, 1).Value = "Yes"
                .Offset(, 2).Value = .Offset(, -4).Value
            End With
        End If
    Next c
Application.EnableEvents = True
End Sub

Please help me

[patel]

[VBA]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E7:E" & Cells(Rows.Count, "E").End(xlUp).Row)) Is Nothing Then
If Target = "Yes" Or Target = "yes" Then
With Target
.Offset(, 1).Value = "Yes"
.Offset(, 2).Value = .Offset(, -4).Value
End With
End If
End If
End Sub[/VBA]

[etheer]

[vba]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E7:E" & Cells(Rows.Count, "E").End(xlUp).Row)) Is Nothing Then
If Target = "Yes" Or Target = "yes" Then
With Target
.Offset(, 1).Value = "Yes"
.Offset(, 2).Value = .Offset(, -4).Value
End With
End If
End If
End Sub[/vba]

Thank you