I would do it like the attached, with this code in Sheet2 code module:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 20 Then
Sheet1.Range("E10") = Cells(Target.Row, 1) 'Registry
Sheet1.Range("F11") = Cells(Target.Row, 20) 'Code
Sheet1.Range("F12") = Cells(Target.Row, 9) 'Registered
Sheet1.Range("I12") = Cells(Target.Row, 2) 'Opened
Sheet1.Range("F13") = Cells(Target.Row, 3) 'Analysed
Sheet1.Range("I13") = Cells(Target.Row, 4) 'Expiry
Sheet1.Range("G14") = Cells(Target.Row, 10) 'Registered by
End If
End Sub
Changing the red numbers to suit the columns the data is in.
Printout macro ked.xlsm