You may find it cleaner to split the data from each cell to give two columns
of real dates.
Data/ Text to columns/ Delimited/ Space and add a hyphen as "Other".  For
each column select date and MDY.
If you wish, you can select a destination other than the start of the source
data, and thus leave the source data alongside the two columns of real
dates.  Select the whiole range and sort by the appropriate column(s).
--
David Biddulph

I'm thinking you would find your worksheet more flexible if you put each
part of those date ranges in their own column rather than list them as you
have (each column could contain real dates that way). However, assuming a
redesign of your spreadsheet is not something you could easily do, give the
following two macros a try. The first (AddSortableDate) will place sortable
text in front of each cell in Column A so that you can perform your sort and
the second (RemoveSortableDate), to be run after the sort is complete, will
restore Column A to how it currently looks. Note: Change the worksheet name
reference in the With statement to the actual name of your worksheet and
change the number assigned to the DataStartRow constant to the row number of
the first date range in Column A (I assumed it would be 2, figuring Row 1
was a header row).

Sub AddSortableDate()
 Dim X As Long
 Dim LastRow As Long
 Dim LeftDate As Date
 Dim CellValue As String
 Dim Parts() As String
 Const DataStartRow = 2
 With Worksheets("Sheet2")
   LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
   For X = DataStartRow To LastRow
     CellValue = .Cells(X, "A").Value
     Parts = Split(CellValue, "/")
     LeftDate = DateSerial(Left(Parts(2), 2), Parts(0), Parts(1))
     .Cells(X, "A").Value = Format$(LeftDate, "yyyy-mm-dd ") & CellValue
   Next
 End With
End Sub

Sub RemoveSortableDate()
 Dim X As Long
 Dim LastRow As Long
 Dim LeftDate As Date
 Const DataStartRow = 1
 With Worksheets("Sheet2")
   LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
   For X = DataStartRow To LastRow
     .Cells(X, "A").Value = Mid$(.Cells(X, "A").Value, 12)
   Next
 End With
End Sub

Rick

Simplest method would be to split the data into two columns.

If you use the Data/Text to Columns wizard, with "-" as the delimiter, and
specify the cell format as MDY, your data will be split and converted to real
dates.  You can then use the normal sort tools.

If that is not an option, I would put a hidden column adjacent to your table;
use a worksheet function to return, for example, the starting date, and then
sort on that.
--ron