Copy and sort numbers in ascending order from multiple columns

A little help please. I've tried various ways to try to make this work to get the result that I want, but I'm not making any progress;

Excel.png

This is what I'm trying to accomplish. Someone inputs their job code and hours worked on that particular job for each day (on the left table). And on the right table, I'd like it to self populate with the job numbers in ascending order, without duplicating any of the job numbers. Apparently this is beyond my Excel skills and I could use a bit of help.

Thanks in advance to any/all that help out.

For the worksheet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D:D,F:F,H:H,J:J")) Is Nothing Then
    UserForm1.Show
End If
End Sub

Button on the form

Private Sub CommandButton1_Click()
Dim mr As Range, r As Long, mhours As Double
mhours = Replace(TextBox2, ".", ",") ' could be you dont need this line, depending on your decimal settings
With Range("N:N")
    Set mr = .Find(Val(TextBox1))
    If Not mr Is Nothing Then
        r = mr.Row
    Else
        Set mr = .Find("", after:=.Cells(3))
        r = mr.Row
    End If
    Cells(r, "N") = TextBox1.Value
    Cells(r, "O") = Cells(r, "O").Value + mhours
    Cells(ActiveCell.Row, ActiveCell.Column).Resize(, 2) = Array(Val(TextBox1), mhours)
End With
lr = Range("N" & Rows.Count).End(xlUp).Row - 2
Range("N3", "O" & lr).Sort key1:=[N3], Header:=xlYes
Unload Me
End Sub

Kind regards
Leo

Leo,

Thanks so much for this. I knew it was way beyond my Excel skills, as I have no idea how to implement this into my worksheet. Could you point me in the right direction?

Where do I add the first section of code?
Where do I add the second section of code?
How do I execute the button?

Alt F11 to go to VBA editor
first code for the worksheet, right click on this sheet and choose view code
then select in boxes like you see on first image


second code is after button submit on the userform, see image 2

Kind regards
Leo

Leo,

The Total Hours are already added up based on the job # (Code for cell O4);

=SUMIFS($E$4:$E$17,$D$4:$D$17,N4)+SUMIFS($G$4:$G$17,$F$4:$F$17,N4)+SUMIFS($I$4:$I$17,$H$4:$H$17,N4)+SUMIFS($K$4:$K$17,$J$4:$J$17,N4)

Code for cell O5;

=SUMIFS($E$4:$E$17,$D$4:$D$17,N5)+SUMIFS($G$4:$G$17,$F$4:$F$17,N5)+SUMIFS($I$4:$I$17,$H$4:$H$17,N5)+SUMIFS($K$4:$K$17,$J$4:$J$17,N5)

etc......

And I've tried to get an array to sort the job codes as well, but couldn't figure it out. Using your approach, I'm going to loose the sorting & calculation of the total hours.

I'm hesitant to add in a dialog box using VBA, as we use this primarily through Google Docs for people to fill in their time and job codes remotely. I don't know if it will behave properly if we go that route. Is there a way to get this to work using a multiple select array?