copyding data to multiple rows [closed]

As you can see from the picture that i have three entries of "9207116092" i want that it should automatically drag the value(date in this case) if its updated in any of the rows have the same PO number (9207116092) rather than old dragging option i want it to be done automatically. Is there any way to do it either by excel vba or just excel

Excel vba code:

 DRow = .Cells(Rows.Count, "C").End(xlUp).row
 For Each PO In Range("C5:C"& DRow)
 Set fnd = WSdest.Range("G:G"& DRow).Find(PO, LookIn:=xlValues, lookat:=xlWhole)
 If Not fnd Is Nothing Then
 fnd.Offset(, -1) = PO.Offset(, 1)
 End If
 Next PO
 End With
 With WSdest
 cRow = .Cells(.Rows.Count, "A").End(xlUp).row
 .Range("N4:N"& cRow).Formula = "=if(F4=E4,M4*1,M4*0)"
 End With