Arrange numbers in the row according to cells with value only

Hi, there!!
I have the macro which takes the values from the table and write them into given cells in the row:

Sub SortingGupta()
'
' SortingGupta Macro
' Sorting jobs according to given K

Dim i As Integer, k As Integer

 i = 0
 For k = 0 To 29
 Worksheets("Gupta").Cells(45, Chr(66 + i)) = Worksheets("Gupta").Cells(15 + k, "C")
 i = i + 2
 k = k + 2
 Next k

End Sub

Row looks like this:

1.JPG

My goal now is rearrange the numbers in the same row from min to max. I've tried to use excel build in "Sort" function but it's destroy the row after values sorting:

2.JPG

I need to keep the order (value-arrow, value-arrow...)
it is possible to make it work somehow using vba (add the code into existing macro)?
Thank you in advance,
Igor