VPA copy Values

Originally Posted by p45cal

Private Sub Worksheet_Change(ByVal Target As Range)
Set myRng = Intersect(Target, Range("A2:F100"))
If Not myRng Is Nothing Then
  On Error Resume Next
  For Each cll In myRng.Cells
    Cells(cll.Row, cll.Value + 7) = cll.Value
  Next cll
End If
End Sub

Thank you, very nice and i have both code works fine now