VBA Code for Replacing Row values by matching unique code

[gfdwer2]

Hi guys, need help finding VBA code for this. Please see pictures attached.

For example (Picture 1)

IF I input 5 in (Sheet 1, Range C4), THEN the values in Sheet 1 under Row 8 should replace the values in Sheet 2 at the right side of special code 5, since the special or unique codes matched.

Then instead of 5, the special code in Sheet 2 will become 5E (not necessary, this is only to identify that it has been edited or changed).

Picture 2 is the expected result:
Note that the data in sheet 2 can go up to maximum of 5000 Rows.

I hope someone can help.

 

[DanteAmor]

Try this

Sub Replace_Data()
  Dim f As Range
  Set f = Sheets("Sheet2").Range("A:A").Find(Sheets("Sheet1").Range("C4").Value, , xlValues, xlWhole)
  If Not f Is Nothing Then f.Offset(, 1).Resize(1, 7).Value = Sheets("Sheet1").Range("A8:G8").Value
End Sub