Copy cell value via VBA if specific cell is changed

[Schturman]

Hi to all
I need some help to change the code that I use to copy value...
This code I use:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range

 If Not Intersect(Target, Range("B2")) Is Nothing Then
  Set rng = Range("C2")
  rng.Value = Range("A2")
    Else
    If Not Intersect(Target, Range("B3")) Is Nothing Then
     Set rng = Range("C3")
     rng.Value = Range("A2")
     End If
  End If

End Sub

If I do any changes to B2, it will copy A2 to C2
If I do any changes to B3, it will copy A2 to C3
And so on...

When I add new row (for example insert value to B4), I need to update my code that will do the same copy to C4
Can someone help me to change the code that will do what I want without every time updating VBA code ?
Thanks

 

[Schturman]

Ok, I fixed the zeroes appearing
I changed this line in code:

If IsNumeric(cell.Value)

to this one:

If IsNumeric(cell.Value) And cell.Value > 0 Then

Now I can drag numbers and it can calculate, I can drag text without errors and I can delete content without zeroes appearing
Thank you very much !!!