Combining 2 Cell Values - Without Losing Data

I have a data set that I'm trying to sort in order to be efficient for some of my team members.

Below is an example of the raw data and how I've currently got it sorted. I think my problem may be that I am trying to join a number with a string but I'm not positive.

Col A

123-45678-A-1
123-45678-A-10
123-45678-B-2

I need to eliminate the letter from the data, add a leading zero to all single digit numbers and sort ascendingly.

My first step is to split the data into columns using the "-" as a delimiter. I end up with 2 columns as shown below.

Col A
Col B
123-45678-
1
123-45678-
10
123-45678-
2

Next I add a leading zero to Col B. The assumption is there will never be more than 99 numbers, so I use the following code:

Columns("B:B").Select
Selection.NumberFormat = "00"

To produce:

Col A
Col B
123-45678-
01
123-45678-
10
123-45678-
02

Now all I need to do is rejoin these 2 columns before sorting. My current code is:

Sub Rejoin_Container_Number()
x = 1
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Do While Cells(x, 2).Value ""
Cells(x, 1).Value = Cells(x, 2).Value & Cells(x, 3).Value

[Code]...

As many have probably already guessed, this produces the following result:

Col A
123-45678-1
123-45678-10
123-45678-2

I'm looking for:

Col A
123-45678-01
123-45678-10
123-45678-02

**zeroes in BOLD for reference only, result does not need to be bold**