Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range('H5:J5')) Is Nothing Then
If Cells(5, 10).Value ‹› '' Then
Cells(1, 5).Value = Cells(5, 10).Value
Cells(2, 5).Value = Cells(5, 10).Value
ElseIf Cells(5, 9).Value ‹› '' Then
Cells(1, 5).Value = Cells(5, 9).Value
Cells(2, 5).Value = Cells(5, 9).Value
ElseIf Cells(5, 8).Value ‹› '' Then
Cells(1, 5).Value = Cells(5, 8).Value
Cells(2, 5).Value = Cells(5, 8).Value
Else
Cells(1, 5).Value = ''
Cells(2, 5).Value = ''
End If
End If
End Sub