How to move from one sheet to otherby condition?

[goldesign]

I need to move the name and surename from sheet1 to empty column in sheet2 by a condition: personal code.
If code match, first two line (name and surename from sheet1) update empty fields in sheet2 right to the same personal code.Is this possible?

Manually without compare and update functions, look like this :

[vba] Range("D9").Select
Sheets("Sheet2").Select
Range("D5").Select
Sheets("Sheet1").Select
Range("B9:C9").Select
Range("C9").Activate
Selection.Copy
Sheets("Sheet2").Select
Range("A5:B5").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
[/vba]

Document attached